1)В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3.
5-9 класс
|
2)В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
var i,i1,i2,count1,count2:integer;
begin
count1:=0;
count2:=0;
for i:=0 to 100 do
if (i mod 10=3) then inc(count1);
for i:=0 to 50 do
begin
i1:=i mod 10;
i2:=i div 10;
if (i1+i2=3) then inc(count2);
end;
writeln (count1);
writeln (count2);
readln;
end.
Другие вопросы из категории
Читайте также
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
двузначных чисел в диапазоне от А до B, в которых первая цифра ровно в 2 раза больше второй.
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
Программа задумывает случайное число в диапазоне от 0 до 99. После каждой попытки играющего прога выводит сообщение "больше", "меньше", "угадано". Дается 10 попыток. Программа завершается, если дан правильный ответ или попытки закончились.
значениями. №2 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только ...элементов массива с четными значениями.