Question

Дана переменная a=0. Пока a<10,Увеличивать её значение на 1 и выводить каждую итерацию слово Дом!!!
Срочно 50 баллов!!!

Answer 1

Pascal:

var a:integer;

begin

 a:=0;

 while a<10 do begin

   a:=a+1;

   write('Дом ');

 end;

end.

Кумир:

алг

нач

  цел а

  а:=0

  нц пока а<10

     а:=а+1

  вывод "Дом "

  кц

кон