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>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ArrRandom(ReadInteger('n='),-99,99).Println.Where(x->x.IsEven).
Println.Take(2).Println;
end.
<u>Пример</u>
n= 15
45 38 43 77 -41 -49 36 98 -29 93 9 34 9 -74 53
38 36 98 34 -74
38 36
Не совсем понял вопрос, но попробую ответить:
var y,a,b:integer;
Begin
readln(a,b);
y:=(a+b)*(a+b);
writeln('y = ',y);
readln;
end.
Вводить 2 числа через пробел.
N= 2 в степени i
N = 16
i=?
4 бит
Ответ:
В десять часов утра обе армии сошлись на ружейный выстрел, и по всей линии открылся огонь. Затем войска бросились врукопашную; первое столкновение произошло на левом фланге русской пехоты, правый фланг шведской пехоты, воодушевленный присутствием короля, бросился на русских и опрокинул батальон Новгородского полка; в нашей линии образовался прорыв. Петр Великий, заметив опасность, взял батальон второй линии и лично повел его на неприятеля.