1. Информатика
  2. Написать программу в паскаль

Написать программу в паскаль для расчёта необходимого количества краски для покраски гаража. гараж имеет форму параллелепипеда. красят все наружные поверхности (их 5). программа должна спрашивать длину, ширину, высоту и выводить на экран количество краски в литрах. расход краски: 0.2 литра на кв. метр.

A1mSh1k A1mSh1k    2   14.09.2019 13:25    2

Ответы
zaprudnov98 zaprudnov98  07.10.2020 14:19

program raf105;

var

 a,b,c,paint: real;

begin

 write('Длина: ');

 readln(a);

 write('Ширина: ');

 readln(b);

 write('Высота: ');

 readln(c);

 paint:= (a*c*2 + b*c*2 + a*b) * 0.2;

 writeln('Требуется ',paint,' л. краски');

end.

PascalABC
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mongoliya1 mongoliya1  24.06.2019 05:40
Паскаль герон что здесь неверно? program geron; var a, b, c: integer; p, s: real; begin writeln( введите стороны треугольника a, b, c ); readln (a, b, c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c));...
Таисия281 Таисия281  19.02.2022 09:17
Решить тест по информатике...
romka1014 romka1014  19.02.2022 09:18
Можно ли при обработке двумерных массивов использовать однократные циклы? Если да, то приведите примеры. Паскаль...
nastyaborisova13 nastyaborisova13  19.02.2022 09:19
5. Какое значение получит переменная с после выполнения серии команд: [2] i=1 s=0 while i =5: s=sti i=i+1 print ( Сумма чисел = , s)...
LuckyZhenya LuckyZhenya  19.02.2022 09:51
Напишите программу, которая будет находить все пары положительных целых чисел, произведение которых будет равно значению value. Например, если ввести число б, программа должна выдать...
anja565449 anja565449  26.05.2019 17:30
Переведите число: 6340, из восьмеричной системы счисления в десятичную....
diana55665 diana55665  30.09.2019 14:30
Напишите программу, которая вводит номер месяца и выводит название времени года. оператор выбора использовать не разрешается. при вводе неверного номера месяца должно быть выведено...
Anonumus671 Anonumus671  21.04.2020 12:47
6а составьте по этому блок схему умоляю...
fdnk1 fdnk1  21.04.2020 12:47
Постройте модель расчета количества обоев, соблюдая, основные этапы моделирования. Рассчитайте минимальное количество обоев и их стоимость, необходимое для оклейки жилой комнаты размером...
ViNtIk4312 ViNtIk4312  21.04.2020 12:47
Для какого наименьшего целого неотрицательного числа А выражение ((y ≥ x − A) /\ (y ≤ x + A)) \/ (x ·y 75) тождественно истинно, т.е. принимает значение 1 при любых целых положительных...

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