Прошу вас, помогите! Решается оценка!!! Найдите ошибки в программе 1)Program z1; var a:integer; begin a:=10; while
5-9 класс
|
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 программе значение переменной а больше чем в цикле и поэтому 10 не меньше 5 и цикл не выполняется
2 ошибка в том, что writeln выводит значение, а после него еще есть условие про а
Если бы а было меньше пяти,то программа зациклилась из за a:=a+1 ,но если бы было меньше пяти и эта строчка была выше writeln (a),то цикл выполнился
Во 2 программе
s:=s+a/2 получится не целое число,которое соответсвует типу real
Другие вопросы из категории
щелчком по кнопке ......открывается окно.
все программы -важный пункт.........
и БЕЗ СМС. Или найдите плиз программу, чтобы можно было нормальные презентации делать((
Читайте также
Помоги на завтра задоли прошу Вас помогите!!!!!!!!!
2 КАРТИНКЕ ПРИМЕР
дешевого(дорогого) товара и его индекс.
вот программа но в ней где-то ошибка
program xxx;
var a:array [1..10] of integer;
i, max, min:integer;
begin
for i:=1 to 10 do read(a[i]);
min:=1;
for i:=2 to 10 do
if a[i]<min then min:=a[i];
writeln('a[',i,']=',a[i]);
max:=a[i];
for i:=2 to 10 do
if a[i]>max then max:=a[i];
writeln('a[',i,']=',a[i]);
end.
begin
F:=F*k;
S:=S*(2*F)/(k*k*k*k+k);
writeln('k = ',k );
readkey;
end.
Найдите ошибку, пожалуйста, программа не идет.