Опишите массив целых чисел ,состоящий из 15 элементов

Знания

Информатика

1 ответ:

Грибуля Трофимовн...4 года назад

0 0

Var A: array[1..15] of integer;
.........................................

Читайте также

Вывести числа, кратные 3 в интервале от а до b (вводятся с клавиатуры). Напишите программу в Pascal

Юрий Постников [50]

Var a,b,i:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for i:=a to b do if i mod 3 = 0 then write(i,' ');
writeln;
end.

Пример:
a=10
b=20
12 15 18

0 0

3 года назад

Выяснить, каких цифр больше: четных или нечетных?

Геннадий Колесников [50]

Program primer;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
writeln ('vvedite massiv');
for i:=1 to n do
readln( a[i]);
for i:=1 to n do
if (a[i] mod 2=0)>(a[i] mod 2=1) then
writeln ('ceotnih cisel bolise')
else
writeln('neceotnih cisel bolise');
readln;
end.

0 0

4 года назад

Прочитать ещё 2 ответа

№1)Укажите натуральные модэли ВАРИАНТЫ Физическая карта Глобус График зависимости расстояния от времени Макет здания Схема узора

worldingame

глобус,манекен,макет здания,муляж яблока

2.рисунок фотография

3. образной

4.Город-путеводитель по городу

0 0

4 года назад

что выполняет команда CLRSCR