const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>
1. Китайцы - мышонок, Немцы - обезьяний хвост, Итальянцы и французы - улитка
(23+35) : (94-92) =?
Первое действие в скобках. 23+35=58 первые скобки раскрыты. Раскрываем вторые: 94-92=2 Вторые скобки тоже раскрыты. Мы получаем:
58:2=? можно разделить устно. 58:2=29;
(23+35):(94-92)=29;
23+35=58
94-92=2
58:2=29
Var
i:integer;
a:array[10..20]of integer;
begin
writeln('Исходный массив:');
for i:=10 to 20 do
begin
a[i]:=random(23);
writeln(a[i]);
end;
for i:=10 to 20 do
if (a[i]>=10) and (a[i]<=20) then a[i]:=a[i]*5;
writeln('Преобразованный массив:');
for i:=10 to 20 do
writeln(a[i]);
<span>end.</span>