Паскаль.
Найти количество положительных чисел в промежутке от 1 до 100, кратных четырем.
Найти количество положительных чисел в промежутке от 1 до 100, кратных четырем.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
// Найти количество положительных чисел в промежутке от 1 до 100, кратных четырем.Var i,j,x: word;
begin
j:=0;
writeln ('Числа кратные четырем:');
for i:=1 to 100 do
begin
x:=i mod 4;
if x=0 then
begin
j:=j+1;
write(i,' ');
end;
end;
writeln;
writeln ('Всего таких чисел: ',j);
end.