Program ops; var a,b,c,d:integer; s: real;begin writeln('введите четырёхзначное число'); readln(a); b:=a mod 10; a:=a div 10; c:=a mod 10; a:=a div 10; d:=a mod 10; a:=a div 10; s:=(b+c+d+a)/4; writeln(s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
