Ничего не понимаю Задание 1. Переписать данную программу, заменив в ней цикл while на цикл repeat:

var a,b,s,k:integer;

begin

readln(a);

readln(b);

S:=a;

while s
k:=k+1;

s:=s+a; end;

writeln(k);

end.

Задание 2. Переписать данную программу, заменив в ней цикл while на цикл repeat:

program prim1;

var m, k: integer;

begin

readln(m);

k:=0;

while m <>0 do

begin

k:=k+1;

m:= m div 10;

end;

writeln(k);

end.

Задание 3. Напишите код программы которая запрашивает с клавиатуры число N, а затем выводит слово "привет" N раз. То есть, если вы введете число 5, она напечатает "Привет" 5 раз. В коде необходимо использовать цикл repeat.

(можно не устанавливать Pascal ABC, а написать код в документе).

larion266    3   13.04.2020 19:17    1