РЕбят,где ошибка Pascal
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;
else
writeln('NO');
end;
readln(n);
if b>100 then
writeln('NO')
end;
sred:=sum/b;
writeln('Среднее арихметическое равно ',:,'='sred);
end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.