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.
если нужно без массива, напишите
Program first;
var x : Integer;
begin
for x := 1 to 10 do begin
write(x);
if x mod 2 = 0 then
writeln('-четное')
else writeln('-нечетное');
end;
end.
Первый текст - 256 символов = 2^8 - битность 1 символа = 8 бит
Второй текст - 32 символов = 2^5 - битность 1 символа = 5 бит
8/5=1.6 раз
В одном большом и красивом зале жили музыаальны инструменты. вечерами когда зал(театр) наполнялся нарядно одетыми людьми оркестр взвалновално готовился для выступления . каждый инструмент выходил по своему номеру растраивались при неудачах радывались когда аплодируют. когда люди покидали театр люстры меняли яркое свечение на нежный лунный свет а инструменты жили своей жизнью.