Program a;
uses crt;
var n, a:integer;
begin
writeln('сколько секунд');
readln(n);
a:=n div 60;
writeln('прошло ', a, 'минут');
readln;
end.
Var a: integer;
<span>begin </span>
readln (a);
writeln (sqr((a mod 1000) div 100));<span>
end.</span>
Если это Паскаль, то вот:
program prog1;
var h, a: integer;
P, b, S: real;
begin
write('Высота=');
readln(h);
write('Основание=');
readln(a);
S:=h*a/2;
b:=sqrt((a/2)*(a/2)+h*h);
P:=b+b+a;
writeln('Периметр= ',P);
writeln('Площадь= ',S);
end.
86-8=78 всего играет в игры
54+62=116 игродетей
116-78=38 детей играют и в квесты и в симуляторы