1.напишите программку которая в последовательности естественных чисел определяет сумму чисел кратных
1.напишите программку которая в последовательности естественных чисел определяет сумму чисел кратных семи и заканчивающихся на один количество не знаменито 2.напишите программку которая в последовательности естественных чисел определяет количество чисел кратных 5 и заканчивающийся на ноль.
Задать свой вопрос1.program zz1;
var a, n, i, s:integer; // задаем переменные целого типа
begin
write( введите n ); // вводим заданное n
read(n);
for i:=1 to n do
begin
read(a); // вводим число последовательности
if (a mod 7 = 0)and(a mod 10 = 1) then s:=s+1;
end;
writeln(количество чисел кратных 7 и кончающихся на 1 = , s); // выводим ответ
end.
2.program zz1;
var a, n, i, s:integer; // задаем переменные целого типа
begin
write( введите n ); // вводим данное n
read(n);
for i:=1 to n do
begin
read(a); // вводим число последовательности
if (a mod 5 = 0)and(a mod 10 = 0) then s:=s+1;
end;
writeln(количество чисел кратных 5 и кончающихся на 0 = , s); // выводим ответ
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.