Регистрация
Georgii1998
08.01.2022 20:32
Информатика
Есть ответ 👍

нужно записать программу и проверить в поскале. Я плоха по информатике. Поэтому жду вашей алг
цел s k
нач
s: 0
нц для k от 1 до 5
s:=s+2*k
кц
вывод s
кон

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

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

Carlso3000
Carlso3000
4,7(8 оценок)

var s, k: integer;

begin

s := 0;

for k:=1 to 5 do begin

s:= s + 2 * k;

end;

writeln(s);

end.

lisasmirnova26
lisasmirnova26
4,4(89 оценок)
//pascal abc.net v3.1 сборка 1172 //1 var   i,s: integer; begin   for i: =6 to 60 do   if i mod 3=0 then s: =s+i;   writeln(s); end. вывод: 627 //2 var   i,n: integer; begin   readln(n);   for i: =1 to n do  writeln(sqr(i)); end. пример ввода: 5 пример вывода: 1 4 9 16 25

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