1. Информатика
  2. Составьте программу

Составьте программу в pascal abc которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150. заранее

никусь2222 никусь2222    1   14.06.2019 17:30    3

Ответы
ALEXANDER982 ALEXANDER982  12.07.2020 08:17
Program summa;

uses crt;

var
I:integer;
begin
summ:=0;
for I:=2 to 150 do begin
if ((I mod 2 = 0) and (I mod 13 = 0)) then writeln (I) end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Руслана462 Руслана462  15.02.2021 11:13
C++ Задача 18. Даны x, y, z. Вычислить a, b, если Исходные данные взять из контрольного примера. Контрольный пример: x=1, y=1, z=3. Результат: a = 9.608184, b=2.962605....
Maga052005 Maga052005  15.02.2021 11:14
C++ Задача 16. Вычислить расстояние между двумя точками с заданными координатами x1, y1 и x2, y2. Исходные данные взять из контрольного примера. Контрольный пример: x1=1, y1=1,...
mammedova75 mammedova75  15.02.2021 11:16
Запиши результат выполнения программы при x=3, y=5 *...
Spasatel222 Spasatel222  03.04.2021 15:59
задано фрагмент программы вказати результат після його виконання const r маніфестація :A= фест ; var M:integer Begin M:=pos (A,R); writeln (M) end​...
vedernikovaleks vedernikovaleks  03.04.2021 15:57
На языке Python Вывести все элементы списка, подходящие под правила: Не содержит в слове цифр и не является абревиатурой. Все числа поместить в множество и вывести. Все остальные...
Васиози Васиози  03.04.2021 15:53
Сломанный корабль Для починки механизма корабля необходимо правильно выбрать три детали для замены испорченных (все испорченные детали разные). В ремонтном наборе имеется 15 деталей,...
Sunshinesun88 Sunshinesun88  12.04.2019 21:34
Начертить блок схему const q: array [1..12] of string = ( сможете ли вы на старом месте работы при к новым правилам? , быстро ли адаптируетесь в новом коллективе ли вы высказывать...
мяв1 мяв1  12.04.2019 21:47
Выполнимы ли законы грассмана в моделях rgb, cmyk и hsb? каковы ограничения этих законов в компьютерной графике? (1) закон трёхмерности. с трёх выбранных линейно независимых цветов...
Teacher991 Teacher991  12.04.2019 21:48
Известно, что два узла с ip-адресами 201.72.108.64 и 201.72.98.60 принадлежат одной подсети. укажите максимально возможное число единиц в двоичном представлении маски данной подсети....
SASHABACUNOV SASHABACUNOV  12.04.2019 21:55
Решить по информатике, паскаль...

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