Домашние задания: Информатика

Помогите пожалуйста с информатикой.

Напишите программу, которая распечатает все натуральные числа кратные 5 от 195 до 6785 включительно в порядке возрастания.
Такси On-Line
Такси On-Line
112
Таких чисел 1320 !!! :))))
На PascalABC:

var Col : integer;
begin
Col := 1;
for var i := 195 to 6785 do
begin
if (i mod 5 = 0) then Write (i:5);
Col := Col + 1;
end; WriteLn;
Writeln ( ' Таких чисел ', Col);
end.

Виктор Гайсин
Виктор Гайсин
73 229
Лучший ответ
Такси On-Line А можете пожалуйста написать
Вот так:n = 6785
while n != 190:
print(n)
n -= 5
Виктор Гайсин Небольшая поправка:

Программу, значит, написать... - Это можно. Только вот на каком языке программирования это нужно сделать? - Нет, программе-то, конечно, без разницы, на каком языке программирования (а их (языков программирования) существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это программа была написана на этом языке программирования, а не на том, который он(а) преподает.

Вот, например, на Pascal:
 Program P1; 
uses crt;
var i, n: integer;
begin
clrscr;
n:=0;
for i:=195 to 6785 do if i mod 5=0 then n:=n+1;
writeln ('Количество натуральных чисел от 195 до 6785, кратных 5, составляет: ', n);
write ('Это числа: ');
for i:=195 to 6785 do if i mod 5=0 then write (' ', i);
writeln (' ');
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
Вот на Python:
 n=0 
for i in range (195, 6786):
if i%5==0:
n=n+1
print (f"Количество натуральных чисел от 195 до 6785, кратных 5, составляет: {n}")
print (f"Это числа:")
for i in range (195, 6786):
if i%5==0:
print (i)
Вот на C++:
 #include  
using namespace std;
int main()
{
setlocale (LC_ALL, "RUS");
int i, n;
n=0;
for (i>=195; i