Прошу вас, помогите! Решается оценка!!! Найдите ошибки в программе 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. - №837131

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

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.
- Предмет:
  Информатика
- Автор:
  georgem85q
- 7 лет назад

Ответы 1

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

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

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

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

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

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

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years