Регистрация
ЕвгенийМатвеев
03.03.2022 02:30
Информатика
Есть ответ 👍

Решить Pascal.

Задача 1. Написать программу, выводящую на экран в столбец все чётные числа из промежутка от 100 до 150.

Задача 2. Написать программу, выводящую на экран в столбец все целые числа из промежутка от 100 до 999, которые делятся на число 11.
​

279
419
Посмотреть ответы 2

Ответы на вопрос:

Otlichnisa140455
Otlichnisa140455
4,5(63 оценок)

1. program chetn_digits;

var i:integer; A:array [100..150] of integer;

begin

for i:=100 to 150 do if A[i] mod 2 = 0 then writeln(A[i]);

end.

2. program deleven;

var i:integer; A:array [100..999] of integer;

begin for i:=100 to 999 do if A[i] mod 11 = 0 then writeln(A[i]);

end.

likaizmaylova
likaizmaylova
4,5(81 оценок)
Жесткий диск, дискета ,перфокарта ,перфолента cd ,dvd, hd dvd ,blueray. карты памяти жесткий диск=3,15 гб дискета=5,25 гб карты памяти=от1 гб до 4 гб cd=700 мб dvd=7,4 или 9,4 гб hd dvd=8 гб

Популярно: Информатика