Есть ответ 👍

Написать программу, которая вычислит площадь трапеции, по введенным основаниям и высоте, которая выведет сообщение является ли трапеция равнобедренной, боковые стороны вводятся случайным образом.

241
331
Посмотреть ответы 2

Ответы на вопрос:

Ru5829
4,4(69 оценок)

var

a: integer;

b: integer;

h: integer;

begin

writeln('Введите основания, затем высоту: ');

readln(a,b,h);

writeln ((a+b)/2*h);

end.

Объяснение:


//pascalabc.net //версия 3.3. сборка 1583 (25.11.2017) begin   var fio: =readlnstring('введите фамилию имя отчество-> ');   var b: =0;   for var i: =1 to fio.length-1 do   if (fio[i]='м') or (fio[i]='м')     then b+=1;   if b< > 0 then println('буква "м" есть в строке. она повторяется',b,'раз(а).')      else println('буквы "м" нету в строке.'); end. пример:   1)  введите фамилию имя отчество-> миг мария моисеева         буква "м" есть в строке. она повторяется 3 раз(а).    2)  введите фамилию имя отчество-> петренко петр петрович       буквы "м" нету в строке. 

Популярно: Информатика