Домашние задания: Информатика
Помогите пожалуйста с информатикой.
Напишите программу, которая распечатает все натуральные числа кратные 5 от 195 до 6785 включительно в порядке возрастания.
Таких чисел 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.

На 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.

Программу, значит, написать... - Это можно. Только вот на каком языке программирования это нужно сделать? - Нет, программе-то, конечно, без разницы, на каком языке программирования (а их (языков программирования) существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это программа была написана на этом языке программирования, а не на том, который он(а) преподает.
Вот, например, на Pascal:
Вот, например, на 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
Похожие вопросы
- Помогите пожалуйста с информатикой!!!!
- Помогите пожалуйста с информатикой
- Помогите пожалуйста срочно информатика!!!
- Помогите, пожалуйста, с информатикой
- Помогите, пожалуйста, с информатикой, паскаль
- Помогите, пожалуйста, с информатикой, паскаль.
- Помогите пожалуйста с информатикой
- Помогите пожалуйста с информатикой! (паскаль)
- Помогите пожалуйста с информатикой
- Ребят помогите пожалуйста с информатикой (Паскаль)
Вот так:n = 6785
while n != 190:
print(n)
n -= 5