Домашняя работа по Информатике. Записать на языке Паскаль.

№1:
1-ый вариант:

 Program P1; 

uses crt; 

var a: integer; 

begin 

clrscr;  

write ('Введите с клавиатуры целое число, после чего нажмите клавишу Enter: '); 

readln (a); 

if a>0 then a:=a+1; 

writeln ('Результат: ', a); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

2-ой вариант:

 Program P1;  

uses crt;  

var a: integer;  

begin  

clrscr;   

write ('Введите с клавиатуры целое число, после чего нажмите клавишу Enter: ');  

readln (a);  

if a>0 then writeln ('Введенное число положительное (>0) -> Результат: ', a+1) else writeln ('Введенное число не является положительным ( Результат: ', a);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end. 

№2:
1-ый вариант:

 Program P2; 

uses crt; 

var a, b: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры 2 числа. После ввода каждого числа нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите 1-ое число: '); 

readln (a); 

write ('Введите 2-ое число: '); 

readln (b); 

if a>b then writeln ('1-ое число больше 2-ого.') else 

if ab then writeln ('1-ое число больше 2-ого.') else writeln ('2-ое число больше 1-ого.');

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end. 

один
var
N : Integer;
begin
Write('Введите целое число: ');
Readln(N);
if N>0 then N:=n+1
else Writeln('число меньше 0');
writeln(N);
end.



два
program p5;
var
a,b : Integer;
begin
Write('Введите целое число 1: ');
Readln (a);
Write('Введите целое число 2: ');
Readln(b);
if a>b then Writeln(a,'>',b)
else Writeln(b,'<',a);
end.

Задача 1

program PositiveNumber;
var
num: integer;
begin
write('Введите целое число: ');
readln(num);
if num > 0 then
num := num + 1;
writeln('Результат: ', num);
end.

Задача 2

program BiggerNumber;
var
num1, num2: integer;
begin
write('Введите первое число: ');
readln(num1);
write('Введите второе число: ');
readln(num2);
if num1 > num2 then
writeln('Большее число: ', num1)
else if num2 > num1 then
writeln('Большее число: ', num2)
else
writeln('Числа равны');
end.