// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var k:= ReadInteger('k =');
var (a,b) :=(1,1);
for var i := 3 to k do
(a,b):= (b,a+b);
Writeln('a) ', b);
(a,b) :=(1,1);
var sum:= 2;
var n:= ReadInteger('n =');
Write('б) 1, 1');
for var i:= 3 to n do
    begin
      (a,b):= (b,a+b);
      Write(', ', b);
      sum+= b;
    end;
Writeln;
Writeln('в) ', sum.IsEven?'YES':'NO');
end.

0 0

4 года назад

Составь описание светофора в ввиде текста

3OHT [1]

У светофора 3 цвета,красный ., жёлтый,зелёный , зелёный - идти,желтый ждать,красный стоять

0 0

4 года назад

Помогите решить пожалуйста

xakeman

1)

Var
x,y:real;
Begin
Write('x = ');
ReadLn(x);
if x > -1 then y:=2*x-3
else y:=5*x*x;
WriteLn('y = ',y);
End.

Проверка:

x = 5
y = 7

x = -3.4
y = 57.8

2)

Var
A:integer;
Begin
Write('Введите целове число: ');ReadLn(A);
if A mod 2 <> 0 then Write('Число - нечётное')
else Write('Число является ЧЁТНЫМ')
End.

0 0

3 года назад