1.вивести 12 елементів послідовності: 10,13, знайти їх суму.

Djjdcnudghu Djjdcnudghu    3   22.06.2019 11:10    2

Ответы
079023296 079023296  02.10.2020 08:19
Var i,a,s:integer;
begin
i:=0;
a:=10;
while(i<>12) do begin
  write(a,' ');
  s+=a;
  a+=3;
  i+=1;
  end;writeln();writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика