Uses crt;
var
a,b,h,S:real;
begin
writeln('Поиск площади трапеции через основание и высоту');
writeln();
write('Введи основание а = ');
readln(a);
<span>writeln(); </span>
write('Введи основание b = ');
<span> readln(b); </span>
writeln();
<span>write('Введи высоту h = '); </span>
readln(h);
S:=h*(a+b)/2;
writeln('Ответ: ',S);
<span>end.</span>
D) активная ячейка -это ячейка в которой выполняется ввод команд,можно сказать это та ячейка в которой находится сейчас курсов
Program t2; var a: integer; Begin write ('Введите колличество суток'); read (a);writeln ('Колличество часов ', a*24);writeln ('Колличество минут ',a*24*60);writeln ('Колличество секунд ',a*24*60*60); end.
Таблица истинности продемонстрирована в прилагаемом изображении.
14, у меня это в олимпиаде попалось))))