Прошу вас, помогите! Решается оценка!!! Найдите ошибки в программе

1)Program z1;

var a:integer;

begin

a:=10;

while a<5 do

writeln(a);

a:=a+1;

End.

2)Program z2;

var a,s:integer;

begin

a:=1; s:=0;

while a<10 do begin

s:=s+a/2;

end;

writeln(s);

end.

1

Ответы и объяснения

2012-10-25T14:31:35+00:00

в 1 программе  значение переменной а больше чем в цикле и  поэтому 10 не меньше 5 и цикл не выполняется

2 ошибка в том, что writeln выводит значение, а после  него еще есть условие про а

Если бы а было меньше пяти,то программа зациклилась из за a:=a+1 ,но если бы было меньше пяти и эта строчка была выше writeln (a),то цикл выполнился

 

Во 2 программе 

s:=s+a/2 получится  не целое число,которое соответсвует типу real  

И  не хватает еще одного действия после   s:=s+a/2;   там должна участвовать переменная a,чтобы получилась полноценная программа