М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
PashaVershinin
PashaVershinin
18.05.2022 19:57 •  Информатика

Составить программу в паскаль, нужно рассчитать стоимость материалов для ремонта пола комнаты. цена 1 м^2 линолеума - 300 рублей, 1 плинтус, длиной 3 м стоит 60 рублей. сначала рассчитать площадь и периметр пола комнаты, размеры произвольные) !

👇
Ответ:
евака2
евака2
18.05.2022
Program zz;var a,b,s,p,z,y:integer;beginwriteln('Длина пола:');readln(a);writeln('Ширина пола:');readln(b);s:=a*b;writeln('Площадь пола:',s);p:=2*(a+b);writeln('Периметр пола:',p);z:=s*300;writeln('Цена линолеума:',z,'рублей');y:=20*p;writeln('Цена плинтуса:',y,'рублей');end.
4,5(27 оценок)
Открыть все ответы
Ответ:
Greninja
Greninja
18.05.2022
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title></title>
</head>
<body bgcolor=lightgrey>
<font color=red face="Arial"><h1 align=center>Иванов</h1>
<h2 align=center>Иван Иванович</h2>
</font>
<hr width=50%>
<a href="document2.html">На страницу 2</a>
</body>
</html>

<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title></title>
</head>
<body bgcolor=lightgrey>
<font color=blue face="Arial"><h1 align=center>Иванов</h1>
<h2 align=center>Иван Иванович</h2>
</font>
<hr width=50%>
<font face="Times New Roman">
<ul>
Список группы:
<li> Чел1
<li> Чел2
<li> Чел3
<li> Чел4
<li> Чел5
<li> Чел6
</ul>
<ul type=square>
Список отсутствующих:
<li> Чел1
<li> Чел2
<li> Чел3
</ul>
</body>
</html>
4,8(54 оценок)
Ответ:
kirill4389
kirill4389
18.05.2022
Var
   A:string;
   C:array['0'..'9'] of integer;
   i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
For i:= 1 to Length(A) do
    if ('0'<=A[i])and(A[i]<='9') then
       C[A[i]]:=C[A[i]]+1;
For i:= 1 to C['9'] do
    Write('9 ');
For i:= 1 to C['6'] do
    Write('6 ');
For i:= 1 to C['3'] do
    Write('3 ');
WriteLn;
For i:= 1 to C['0'] do
    Write('0 ');
For i:= 1 to C['2'] do
    Write('2 ');
For i:= 1 to C['4'] do
    Write('4 ');
For i:= 1 to C['6'] do
    Write('6 ');
For i:= 1 to C['8'] do
    Write('8 ');
End.

Введите натуральное число: 59012549703651409725190351902745210974651094251087498015794801574801974850197423
9 9 9 9 9 9 9 9 9 9 9 6 6 3 3 3
0 0 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 4 4 4 4 4 4 4 4 4 4 6 6 8 8 8 8 8
4,6(5 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ