Войти Регистрация Спроси ai-bota

Pascal abc как написать формулу площади? 1/2h(a+b)

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

maksivanchuk123

30.01.2020 13:00

Водной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке: как я любил твои отзывы, глухие звуки, бездны...

mit210404

30.01.2020 13:00

Освобождается ли места на диске после удаления объектов в корзину освобождается ли после удаления из корзины...

mazyrin91p08sby

30.01.2020 13:00

Эта фирма не занимается разработкой и выпуском микропроцессоров: microsoft intel amd nvidia ibm...

ТарасБульба1

30.01.2020 13:00

1) в виде чего отражается в сознание человека объекты окружающего мира? 2) пример термина из мира информатики 3) к какому миру принадлежит понятие – к миру объектов реальной...

PWBC

10.04.2021 12:36

Грише понять, сколько узлов в его подсети, без учета ip-адресов, зарезервированных под адрес сети и широковещательный адрес. его ip = 37.140.223.250, а маска подсети /22....

BlackElegant

10.04.2021 12:36

Нужно написать загадки для следующих предметов: телефон, стол, диск, записная книжка, мышь (не компьютерная, а живая), школа....

nikonorowakate

10.04.2021 12:36

Достоинства и недостатки числовой, текстовой, графической, звуковой и видеоинформации....

2004пупик4

10.04.2021 12:36

Кзаданному учителем числу(500 и 900) прибавить дату своего рождения(6.09.2000) и перевести в 2ую, 8ую и 16ую с/с...

неумно

10.04.2021 12:36

Как в информатике обозначается размер файла?...

ден1025

06.02.2023 06:51

Укажіть як можна заразити вірусом комп ютер? а) включити еом. б)попрацювати з чужою неперевіриною дискетою. в)завантажити з вінчестера гру. г)завантажити файли з електронної...

Ответ:

oles2014

01.10.2020 23:31

Var
a, b, s, h :real;
begin
s:= (a+b)*h/2;
end.

0,0(0 оценок)

Ответ:

AlinaAlina110624

01.10.2020 23:31

Var a,b,h:integer;
s:real;
begin
writeln('Введите h');
readln(h);
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);

s:=1/2*h*(a+b);

writeln('Площадь равна:',s);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку