program n_1;
var n, i, m, s: integer;
begin
s:=0;
read(n);
for i:=1 to n do begin
read(m);
if m mod 2 = 0 then s:=s+1;
end;
writeln(s);
end.
Program voz;
uses crt;
var a,b,c,d,e,f : integer;
begin
Write('Какая сейчас дата?(д м г)');
Read(a,b,c);
write('Введите дату вашего рождения (д м г)');
read(d,e,f);
if (b>=e) and (a>=d) then Writeln('Вам ',c-f,' лет') else writeln('Вам ',c-f-1,' лет');
end.
<span>Microsoft Visual Studio</span>
5 надеюсь что язык запросов SQL, а не какой то экзотический)
а) select * from p where время отправления<=06:00:00
b) select * from p where стоянка>30
в) select * from p where откуда='Свердловск'
г) select * from p where куда<>'Москва'
6
а) 73, 339, 285, 49Н,
б) 73, 285, 49Н, 265Н,
в) 45
г) 73, 265Н, 45