Дана программа на языке Паскаль. Заполни пропуски.

Вывод на экран квадратов чисел от 1 до 25.

var
: integer;
begin
for m:=1 to do
writeln(sqr( ));
readln;
end.

268

386

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

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

Алексей08032005

Информатика

4,4(54 оценок)

var

m: integer;

begin

for m:=1 to 25 do

writeln(sqr( m));

end.

корги1

Информатика

4,6(29 оценок)

Var a,max,sum: integer; arr: array [0..2015] of integer; begin randomize; max: =-500; sum: =0; for a: =0 to 2015 do begin arr[a]: =random(1001)-500; if max< arr[a] then max: =arr[a]; end; write('максимальный элемент массива ==> ',max); writeln(); if max mod 2 = 1 then begin for a: =0 to 2015 do begin if arr[a] mod 2 =1 then sum: =sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end; sum: =0; if max mod 2 = 0 then begin for a: =0 to 2015 do begin if arr[a] mod 2 =0 then sum: =sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end; end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

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

Популярно: Информатика

Есть вопросы?

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

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

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

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

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