program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
В задании сказано, что надо найти 4-хзначных чисел, но в конце написано, что значение чисел не должно превышать 300.
Но числа меньше 300 будут трехзначными, поэтому в моей программе числа могут быть больше 300.
Может быть опечатка в задании.
Программа:
var kol, n, i, a: integer;
sum: real;
z: boolean;
begin
writeln('Введите количество чисел');
readln(n);
if (n > 100) then begin
writeln('Ошибка');
exit;
end;
sum:= 0;
kol:= 0;
z:= false;
writeln('Введите числа');
for i:= 1 to n do begin
readln(a);
if (((a div 10000) = 0) and ((a mod 2) = 1) and (a > 0)) then begin
sum:= sum + a;
kol:= kol + 1;
if((a mod 5) = 0) then z:= true
end;
end;
if ((kol = 0) or (z = false)) then begin
writeln('Нет');
end
else begin
sum := sum / kol;
writeln('Среднее значение суммы: ', sum);
writeln('Количество чисел: ', kol);
end;
end.