<span>MS Windows 2003
<span>MS Windows Me</span>
<span>MacOS X 10.7
<span>Ubuntu 10.10
</span></span></span>А OS: <span>DR-DOS 7.0, <span>OS/2 Warp 3.0, <span>BeOS 5.1 слишком старые</span></span></span>
1) Первое задание:
var a: integer;
begin
write ('Введите число: ');
readln (a);
if (a mod 2 = 0) then
writeln ('Четное число')
else writeln ('Не четное');
readln;
end.
2) Второе задание:
program test;
var a: integer;
begin
write ('Введите число: ');
readln (a);
if a > 0 then
a:= a + 1;
if a < 0 then
a:= a - 2;
if a = 0 then
a:= 10;
writeln (a);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-56,26); a.Println
end.
<u>Пример</u>
n= 13
10 19 20 0 2 14 -16 -48 0 7 -51 19 -22
<em>Ограничение на размер массива (n) - только здравый смысл.</em>
(признайся про Любу, Лену, майл , роза) ну и всё .