var i,a,b,c,k: integer;
begin
for i:=1 to 5 do
begin
a:=random(8)+1;
b:=random(8)+1;
write (a,' * ',b,' = ');
readln (c);
if c = a*b then k:=k+1
end;
writeln ('Вы правильно ответили на ',k,' примера')
end.
Var i,k:integer;
begin
k:=0;
for i:= 100 to 1000 do if (i mod 5=0) and (i mod 21=0) then k:=k+1;
write(k)
<span>end.</span>
0010 * 1011 = 0010 + 00100 + 000000 + 0010000 = 10110
A = 0, B = 0, C = 1, D = 1, E = 0.
Ответ: (3)
Var
i:integer;
begin
Writeln('Число Квадрат');
i:=14;
while i<=24 do
begin Writeln(i:4,sqr(i):9); i:=i+2 end
end.
<em><u>Результат выполнения программы:</u></em>
Число Квадрат
14 196
16 256
18 324
20 400
22 484
24 576
Поставить первую букву п,третью л,четвёртую к