Я МОГУ СКАЗАТЬ ТО ЧТО У НЕГО ЕСТЬ ВООБЩЕТО НЕ 1 ОШИБКА А 2 ОШИБОК))
Ответ:
1)
Begin
Count:=0;
repeat
Read (ch);
If ch> 0 then inc(count);
Until ch<>0
Write(count);
End.
2)
Begin
Sum:=0;
Count:=0;
repeat
Read (ch);
Sum:=sum+ch;
If ch mod 9=0 then inc(count);
Until sum<200
Write(count);
End.
Осинь обагрила свойим листтям лис.червона королева малюе краще за всих сестер . осинь-це пора витру та краси. листтячко падало на землю,що б почервив сад.в цьому роци осинь буде незабутня
Частично и часто...спасибо за внимание.
1)
var
n,m:longint;
mem:double;
begin
write('Введите минуты и секунды песни: ');readln(n,m);
mem:=(n*60+m)*16/1024;
if(mem>6)then writeln('Не хватает: ',6-mem,' МБ')
else writeln('Места хватает');
end.
2)
var
dl:double;
x:longint;
begin
write('Введите расстояние: ');readln(x);
x:=x*100000;
dl:=80*3.14;
if(x/dl>200000)then writeln('Не доедет')
else writeln('Доедет');
<span>end.
</span>