Program z;
var a: array [1..10] of integer;
N,i,k: integer;

<span>begin
N := 10;
k=0; </span>
for i:=1 to N do
readln(a[i]);
for i:=1 to N do
if a[i]>9 and a[i]<100
then k:=k+1;
writeln(k);
end.

0 0

3 года назад

Паскаль Среди 8 чисел, введённых с клавиатуры, выписать кратные A

gggggrt [4]

Const n=8;
var
b: array[1..n] of integer;
a,i: integer;
begin
readln(a);
for i:=1 to n do readln(b[i]);
for i:=1 to n do if b[i] mod a=0 then writeln(b[i]);
end.

если нужно без массива, напишите

0 0

1 год назад

Постройте таблицу истинности для высказывания (a или b) и c

Елена Ильинична [12]

Объяснение:

Вот таблица, горизонтальные не принимает;)

0 0

4 года назад

Верны ли следующие утверждения? 1. Каждый компьютер, подключенный к локальной сети, должен иметь сетевую карту. 2. Стандартный C

Lyer [50]

Оба верны
Значит ответв

0 0

4 года назад