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

При запуске программы вывод на экран:

246

395

Посмотреть ответы 1

Ответы на вопрос:

Fin208

Информатика

4,8(45 оценок)

попробуй этот код

uses crt;

var f,g: text;

a,max,min: integer;

begin

assign(f,'c: \in.txt');

assign(g,'c: \out.txt');

reset(f);

rewrite(g);

max: =0;

min: =0;

reset(f);

while not eof(f) do

begin

read(f,a);

if a> max then max: =a;

if a< min then min: =a;

end;

writeln(g,'max ',max);

writeln(g,'min ',min);

close(f);

close(g);

end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.