Регистрация
korolevaleksan
13.04.2022 03:35
Информатика
Есть ответ 👍

Определите, какую задачу решает программа на Паскале:

program test2;

var SL: string; i: integer;

begin

readln(SL);

i:=1;

while (i>=l) and (SL[i]<>'*') and (i<=length(SL)) do

begin SL:=SL+'*'; i:=i+l end;

writeln(SL)

end.​

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

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

vladusha2
vladusha2
4,8(13 оценок)
Var   sum: real;   i: integer; begin      sum : = 1000;     for i : = 2017 to 2030 do      sum : = 1.2 * sum;   writeln(sum); end.

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