Дана программа:

Program Primer;
Var
M,result : real;
Begin
Writeln('Введите значения переменной M');
Write('M=');
Readln(M);
Result := sqr((4+M)*4);
Writeln (result:8:0);
Readln;
End.

Запусти Паскаль, введи данную программу, получи результат, если M=3.
(В окошко для ответа запиши только числовое значение!)
2)Запусти Паскаль и введи программу:

program x1;
var
a,b,c:integer;
begin
a:=−14;
b:=abs(a);
writeln('abs(−14)=',b);
c:=sqr(b);
writeln('sqr(b)=',c);
c:=sqr(b+b);
writeln('sqr(b+b)=',c);
end.

При запуске программы вывод на экран:
abs(−14)=
sqr(b)=
sqr(b+b)=

mehan2018    1   20.01.2021 19:22    0