Найти сумму целых двузначных чисел кратных трем
5-9 класс
|
Program dz2;
Var i:byte;
s:integer;
Begin
S:=0;
For i:= 10 to 99 do
If i mod 3=0 then
S:=s+i;
Writeln('Сумма двухзначных чисел кратных 3 =',s);
End.
//Подходит?
Другие вопросы из категории
1)закусочная продает воду по 10 рублей за банку ,но не менее 5 банок одному покупателю. Если покупатель запросит более 5 банок ,выдать предупреждение ,в противном случае -сумму покупки
2)ввести годы рождения двух девочек.Определить старшую из них.
Нужно девушке помочь, а я на паскале сейчас мучу
последовательность из этих команд для кузнечика,которая позволит ему оказаться в точке с координатой 6
Читайте также
программы подаются целые числа, количество введенных чисел неизвестно, последовательность заканчивается числом 0 (0 - признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введенные числа по модулю не превышают 300. Программа должна вывести сумму и количество чисел, кратных 17, или вывести NO, если таких числе в последовательности нет
2. вывести на экран 11 первых чисел кратных 5;
3. составить программу рисования 18 прямоугольников синего цвета, координаты которых определяется случайным образом, а стороны равны а=140, b=40.
2. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 или 8.
Решить в Паскале
клавиатуры.
2)найти перевертышь трехзначного числа.