Ответ:
Объяснение:
var N, k, i : integer;
begin
write('введите границу');
read(N);
k:=0;
for i:=2 to N do
if i mod 2=0 then
begin
writeln(i);
k:=k+1;
end;
writeln('четных чисел ',k);
end.
2i=N
2i=256
I
i=8 бит, (1 байт)
4*1=4байта информации
Uses crt;
var a,b:real;
num:integer;
begin
writeln('Введите два числа');
readln(a,b);
writeln('Выберите операцию: 1.сложение, 2.умножение');
readln(num);
clrscr;
case num of
1:writeln(a,'+',b,'=',a+b);
2:writeln(a,'*',b,'=',a*b);
end;
end.
<span>дверь - дверной проем ; открывать - ремонтировать</span>
<span>окно - стекло ; мыть - разбивать</span>
автомобиль - сидение ; покупать - пачкать
Это минимум балов 30)))
п.с. можешь удалить этот коммент!