Паскаль!

1. Напишите программу, запрашивающую у

пользователя два момента времени (количество часов, минут и секунд) и

сообщающую число секунд, прошедшее между этими двумя моментами.

2. Ввести

два числа. Если сумма этих чисел четная, найти произведение, в противном

случае, найти частное этих чисел.

3. Одноклеточная

амёба каждые 3 часа делится на 2 клетки. Определить, сколько будет амёб через

3,6,9,12, ...24 часа.

4. Дан одномерный массив А (i), i = 7, заданный случайным образом.

Вывести на экран массив, значения которого находятся в диапазоне [0; 10]

1) var a, b, c, a1, b1, c1, s:integer;

begin

writeln ('Введите количество часов в первом моменте времени');

readln (a);

writeln ('Введите количество минут в первом моменте времени');

readln (b);

writeln ('Введите количество секунд в первом моменте времени');

readln (c);

writeln ('Введите количество часов во втором моменте времени');

readln (a1);

writeln ('Введите количество минут во втором моменте времени');

readln (b1);

writeln ('Введите количество секунд во втором моменте времени');

readln (c1);

s:=abs (a*3600+b*60+c-a1*3600-b1*60-c1);

writeln (s,' секунд');

end.

2) var a, b:integer;

s:real;

begin

writeln ('Введите первое число');

readln (a);

writeln ('Введите второе число');

readln (b);

if (a+b) mod 2 = 0 then s:=a*b

else s: = a/b;

writeln (s);

end.

3) var b, s, n:real;

begin

writeln ('Введите количество часов');

readln (n);

n:=n/3;

s:=2*power (2, (n-1));

writeln (s,' амёб');

end.

4) var a:array[1 ... 7]of integer;

i:integer;

begin

for i:=1 to 7 do

begin

a[i]:=random (11);

writeln ('a[', i,'] = ', a[i]);

end;

end.