Регистрация
сашапомогайка
26.01.2020 06:04
Информатика
Есть ответ 👍

Изменить данную программу для while и repeat program_n1; var i,s: integer; begin s: =0; for i=10 to 99 do s: =s+i; writeln ('сумма=',s); end.

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

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

anya2403
anya2403
4,8(55 оценок)
While: program n2; var i,s: integer; begin s: =0; i: =10; while i< 100 do   begin   s: =s+i;   i: =i+1;   end; writeln ('сумма=',s); end. repeat: program n3; var i,s: integer; begin s: =0; i: =10; repeat   s: =s+i;   i: =i+1; until i=100; writeln ('сумма=',s); end. результат: сумма=4905
maina342
maina342
4,5(58 оценок)
Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

begin

  var a : = arrrandom(10, -10, 10);

  a.println;

  var i : = a.indexmax;

  writeln('максимальный a[', i + 1, ']=', a[i]);

  i : = a.indexmin;

  writeln('минимальный a[', i + 1, ']=', a[i])

end.

-2 0 -3 0 3 -2 1 -9 -9 -2 максимальный a[5]=3 минимальный a[8]=-9

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