1. пропала ; после writeln('цифра')
2. меньше или равно пишется < =, так что условие n=< 300 надо переписать n< =300
3. после sum: =n+sum; пропала закрывающая скобка end
4. после else надо бы еще begin
5. предпоследняя строчка тоже мимо.
вот вся исправленная прога:
program one;
var a,n,sum,b: integer;
sred: real;
begin
readln(n);
writeln('цифра');
while (n< > 0) do
begin
sred: =0;
sum: =0;
b: =0;
if(n mod 8 =0 )and (n< =300) then
begin
sum: =n+sum;
end
else
begin
writeln('no');
end;
readln(n);
if b> 100 then
writeln('no')
end;
sred: =sum/b;
writeln('среднее арихметическое равно ',': =',sred);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Программирование ! ввести число и доказать, что первая цифра числа равна последней.
var a, b, c, d, e : integer; begin readln(a); b : = a; c : = 0; d : = a mod 10; while b < > 0 do begin c : = c*10 + b mod 10; b : = b div 10 end; e : = c mod 10; if e=d then writeln('первая цифра равна последней') else writeln('первая цифра не равна последней')end.