Помогите пожалуйста составить программы: 1) Определить сколько трехзначных чисел кратны m 2) Определить сколько трехзначных чисел
5-9 класс
|
содержат цифру 3
1)
var
i,m,n:integer;
begin
read(m);
for i:=100 to 999 do
if i mod m = 0 then
n:=n+1;
writeln(n, 'chisel kratno')
end.
2)
var
i,m,n:integer;
begin
for i:=100 to 999 do begin
if (i mod 10 = 3) or ((i mod 100) div 10 = 3) or (i div 100 = 3) then
n:=n+1;
end;
writeln(n, 'chisel soderzit')
end.
Другие вопросы из категории
Читайте также
числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. Про-грамма должна вывести одно число: количество трехзначных чисел, кратных 7
Программа должна спрашивать:
- сколько человек было поставлено на заявку.
- сколько человек присутствовало на занятиях.
- сколько стоит обед для одного учащегося.
Помогите пожалуйста, очень нужно, только правильно, заранее спасибо.
клавиатурызадаются в таком порядке: x y и 50 чисел. Помогите, пожалуйста, очень надо)
мало
эти задания нужно сделать циклами while и for, т е чтобы получилось 12 программ
1. Составьте программу вычисления значения функции: y=7x^2+1/x^2-16
2. Составьте блок-схему алгоритма и программу расположения четырех чисел в порядке возрастания.
3*. Составьте программу, определяющую вид треугольника по трем его сторонам A, B, C.
4. Составьте блок-схему алгоритма и программу вывода на экран всех трехзначных чисел, кратных 7.
5. Составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 13.
6*. Составьте программу вывода на экран таблицы степеней 2ⁿ, где 0 ≤ n ≤ 10.
я вас просто умоляю, напишите, пожалуйста