Прошу вас, помогите! Решается оценка!!! Найдите ошибки в программе
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)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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
в 1 программе значение переменной а больше чем в цикле и поэтому 10 не меньше 5 и цикл не выполняется
2 ошибка в том, что writeln выводит значение, а после него еще есть условие про а
Если бы а было меньше пяти,то программа зациклилась из за a:=a+1 ,но если бы было меньше пяти и эта строчка была выше writeln (a),то цикл выполнился
Во 2 программе
s:=s+a/2 получится не целое число,которое соответсвует типу real
И не хватает еще одного действия после s:=s+a/2; там должна участвовать переменная a,чтобы получилась полноценная программа