Var a,b,c,d,e:integer;
begin
readln(a,b,c,d,e);
if (a mod 2<>0)and(a<0) then write(a);
if (b mod 2<>0)and(b<0) then write(' ',b);
if (c mod 2<>0)and(c<0) then write(' ',c);
if (d mod 2<>0)and(d<0) then write(' ',d);
if (e mod 2<>0)and(e<0) then write(' ',e);
end.
Пример:
-15 42 -10 27 -79
-15 -79
<span>1. Каким служебным словом начинается программа? B) begin
2. Какое слово используют для описания переменных величин в программе? B) var
3. Каким символом разделяют команды в программе? A) точка с запятой;
4. Какие из перечисленных слов могут быть именами пользователя? D) Е6.
5. Какую команду используют для ввода данных? A) read;
6. Какие из приведенных команд вывода данных записаны правильно? C) write(‘y =’,y);
7. Данные логического типа можно описать как: A) boolean;
8. Каков результат вычисления выражения 45 mod 4? A) 1; B) 2; C) 3; D) 4. </span><span>
25 должно быть
9.В скольких позициях будет выведено значение переменной х при использовании формата вывода х:6:3? D) 6.
10. Какие из записей закона всемирного тяготения (F = ) на языке программирования являются правильными?B) F:=g*m1*m2/(r*r);
11. Данные, значения которых являются действительными числами можно описать как: B) double; </span>
Var a: array [1..20] of integer; i,s1,s2:integer;
Program Chisla;
Var a,p:integer;
Begin
P:=1
For a:=10 to 16 do
P:=p*a;
Writeln(P);
End.