Begin
var k := 24.0;
var m := k / 3;
k := m / 4 + 2;
m := m + 2 * k;
Println(k, m);
end.
Ответ 4 16
begin
var x := 23;
var y := 12;
y := 3 * x - 4 * y;
var z := 0.0;
if x > y then
z := 3 * x + y
else z := 2 + x * y;
Println(z);
end.
Ответ 90
Напиши про какую комбинацию клавишь на клаве надо нажать,чтобы получилось что-то и т.д.типа контр+альт+делит=диспетчер задач)
На быстродействие влияет только в том случае, когда для работы операционной системе(ОС) и её программного обеспечения(ПО) не хватает оперативной памяти(ОЗУ). В других случаях не влияет, пока не достигнут предел памяти используемого ПО.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74