даны числа от n1 до n2 (n1 и n2 вводятся с клавиатуры). найти и вывести на экран те числа из промежутка от n1 до n2, которые при делении на 7 дают в остатке 1, 2 или 5. Вывести количество таких чисел. СРОЧНО, ПОМОГМТЕ ПОЖАЛУЙСТА
More Questions From This User See All
Answers & Comments
program raf105;
var
n1,n2,i,c: integer;
begin
write('Введите 2 числа (начало и конец диапазона): ');
readln(n1,n2);
for i:=n1 to n2 do
begin
if (i mod 7 = 1) or (i mod 7 = 2) or (i mod 7 = 5)
then begin
write(i,' ');
c:= c+1;
end;
end;
writeln;
writeln('Количество чисел: ',c);
end.
PascalABC 3.4.2