Var a0, a1, a2, a3, a: longint;
Begin
readln(a3, a2, a1, a0);
a:=a3*1000+a2*100+a1*10+a0;
write(a)
End.
Пример:
1 5 9 8
1598
НЕ (число четное) = (число не четное)
Нам нужно, чтобы выражение было ложно, то есть число не может быть четным и должно быть >=70
Ответ 72
//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandomInteger(ReadInteger('n ='), -50, 50);
a.Println;
a.Transform(x -> -x);
a.Println;
end.
Ох, так уж и быть...
Д.б. в программе:(Обрати внимание на отступы и большие/маленькие буквы в переменных!!!)
Var a: integer; b, c, x: real;
Begin
a:=7;
b:=3,2;
c:=a+b;
WriteLn('Сумма = ', c{английская!!!});
c:=c/2;
x:=a-c;
WriteLn('x = ', x, '; квадрат x = ', x*x);
End.
На все вопросы почему заменил сумма <- summa и почему присваивания поставил в разные строки отвечай: "Так легче читается программа!!!"
На экране будет:
Сумма = 10,2
x = 1.9; квадрат x = 3.61