напишите программу которая в диапазоне целых двухзначных чисел от c до b определяет количество нечетных чисел кратных 3 и не начинающихся на 2 и 4
5-9 класс
|
var a,b,c,d:integer;
begin
b:=0;
writeln('Введите c');
readln(c);
writeln('Введите d');
readln(d);
for a:=c to d do
begin
if (a mod 2=1)and(a mod 3=0)and(a div 10<>2)and(a div 10<>4) then b:=b+1;
end;
writeln('Количество чисел равняется ',b);
end.
Другие вопросы из категории
мышь.
2.Винчестер, лазерный диск, модем.
3.Монитор, принтер, плоттер, звуковые колонки.
Пятнашки.avi
Пятнашки.txt
Пятнашки.wav
Пятнашки.bmp
Пятнашки.com
А. оперативная память
Б. floppy disc
В. кэш-память
Г. специальная память
Читайте также
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
2)Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вводятся с клавиатуры; a>=200);