Паскаль!

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.