1. Информатика
  2. Вычислите количество чисел

Вычислите количество чисел в промежутке от а до в (которые вводятся с клавиатуры), которые кратны 7 или оканчиваются на 9. в паскале

андрейка46 андрейка46    1   25.08.2019 20:00    1

Ответы
nnxxxmm5p03cok nnxxxmm5p03cok  09.08.2020 19:31
Program n1;
var a,b,k,i: integer;
begin
readln(a,b);
k:=0;
for i:=a to b do if (i mod 7=0) or (i mod 10=9) then k:=k+1;
write(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kristinamurrr1 kristinamurrr1  11.12.2020 00:01
В таблице используется условное форматирование. * 1.Файл. 2.Условное форматирование1.Главная. 2.Условное форматирование1.Выделить. 2.Условное форматирование​...
Nаstуа23 Nаstуа23  11.12.2020 00:02
E AB ВС Cбе родшының аты – 240ри чиотел- даем чи | Алла Елелч1 цмодаас Айдамо.01.12 2009, 12 аорасалал​...
ПОЗИТИВЧИК750 ПОЗИТИВЧИК750  11.12.2020 00:02
9. Приведите пример дискретизации сигнала: а) только по уров- ню; б) только по времени. Нарисуйте графики процессов....
bodik228 bodik228  11.12.2020 00:02
1) - это горизонтальный ряд ячеек, расположенный на одной линии. 2) Ячейка – этоэлемент таблицы. 3) - это вертикальный ряд ячеек, расположенный на одной линии....
lera956 lera956  11.12.2020 00:04
Задан двумерный массив А(5, 5), заполненный случайными числами из диапазона [-10,10]. В массиве А заменить отрицательные элементы нулями и вывести полученный массив....
akmaralwellcom akmaralwellcom  05.10.2019 22:33
Анализ информационной сферы и дествующих в них субъекты позволяет выделить в них 3 основные их сферы: 1)производители информации,информационных рисурсов,информационных продукотов,информационных...
mklslajh mklslajh  05.10.2019 22:46
60 напишите программу на c++, которая моделирует работу процессора. процессор имеет 4 регист-ра, они обозначаются r0, r1, r2 и r3. все команды состоят из трех десятичных цифр: код...
хорошист547 хорошист547  05.10.2019 22:53
Написать программу на языке паскаль и подобрать тестовые данные. даны координаты вершин треугольника, определить его вид (прямоугольный, остроугольный, тупоугольный). вывести значения...
artem875 artem875  08.09.2019 08:40
Переведите в десятичную систему двоичное число 100001100...
lam3r lam3r  08.09.2019 08:40
Переведите в десятичную систему двоичное число 100001100....

Популярные вопросы