Регистрация
vanyakolesov1
14.09.2022 11:03
Информатика
Есть ответ 👍

Паскаль! заменить for на while!

var a,b,c,s1,s2,k,i: integer;
begin
write('a, b, c: ');
readln(a,b,c);
s1: =0;
for i: =1 to b do s1: =s1+a;
s2: =0;
for i: =1 to c do s2: =s2+c;
writeln('s1 = ',s1,' s2 = ',s2);
k: =0;
while s1> s2 do begin k: =k+1; s1: =s1-s2; end;
k: =k+1;
writeln('k = ',k);
end.

пример:
a, b, c:
4 7 3
s1 = 28 s2 = 9
k = 4

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

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

Екатерина12311111
Екатерина12311111
4,7(44 оценок)

var a,b,c,s1,s2,k,i: integer;

begin

write('a, b, c: ');

readln(a,b,c);

s1 : = 0;

for i: =1 to b do

s1 : = s1+a;

s2 : = 0;

for i: =1 to c do

s2 : = s2+c;

writeln('s1 = ',s1,' s2 = ',s2);

k : = 0;

for i: =1 to s1 div s2 do

begin

k : = k+1;

s1 : = s1-s2;

end;

k : = k+1;

writeln('k = ',k);

end.

Foxmem
Foxmem
4,4(32 оценок)

впиши в интернете это по одному потом заходи в картинке и чаще всего в картинках ответ появляются 100% сама так делаю всегда

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