Var i,k:integer;
begin
k:=0;
for i:= 100 to 1000 do if (i mod 5=0) and (i mod 21=0) then k:=k+1;
write(k)
<span>end.</span>
Вы можете скопировать на свои диски ненужную для вас информацию со школьного компьютера
Есть опасность заражения компьютера вирусом
От частого использования разъемов компьютера они могут испортиться
Нельзя в компьютер вставлять большое количество носителей информации
это вещественное число, так что real
Program b;
var
bal:integer;
stip:real;
begin
write('Введите средний балл учащегося: ');
write('Введите стандартную стипендию: ');
readln(bal,stip);
if bal>=4 then stip:=stip+(stip/2) else
stip:=stip;
writeln('Стипендия учащегося: ',stip);
readln;
<span>end.
Как я понял по условию, нужно посчитать стипендию у различных учеников...</span>