Ответ:
2
Объяснение:
(x<3) и не(x<2) ===== (x<3) и (х≥2)
var x:string;
begin
x:='Турбина';
writeln(x);
x:= 'Резина';
writeln(x); // writeln выводит текст
// с переменной х.
//Можно убрать.
x:='Монитор';
writeln(x);
x:='Контракт';
writeln(x);
end.
Program chastnoe;
var N, p, sh: integer;
m: real;
begin
write(‘N=’); readln (N);
p:= N div 1000000000;
sh:= (N div 10000) mod 10;
m:= p/sh;
writeln (‘частное=’,m);
end.
// PascalABC.NET 3.0, сборка 1088
begin
var a:=ArrRandom(35,1,38);
a.PrintLn;
Writeln(a.Where(x->x mod 5=0).Aggregate((x,y)->x*y))
end.
Тестовое решение:
35 1 3 3 1 19 31 38 31 32 33 10 7 22 21 1 18 17 19 32 21 18 31 30 10 2 23 34 33 23 12 25 12 5 30
393750000