rstas

12.04.2021

Маша решила купить ткань для пошива штор, при чем шторы должны быть длинной Х метров. Ткань для штор стоит R руб. за квадратный метр. Сколько будет стоить ткань для штор, если ткань по ширине равна 90 см На языке Паскаль.

Информатика

Ответить

Ответы

stsnab

12.04.2021

program ok;

var r, x, w: real;

begin

writeln('Введите длинну штор в метрах');

readln(x);

writeln('Введите стоимость ткани за квадратный метр в рублях');

readln(r);

w:= 0.9;

writeln('Стоимость ткани равна',(x*r*w), 'рубля');

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Маша решила купить ткань для пошива штор, при чем шторы должны быть длинной Х метров. Ткань для штор стоит R руб. за квадратный метр. Сколько будет стоить ткань для штор, если ткань по ширине равна 90 см На языке Паскаль.

▲

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

Исходное данное — трёхзначное число x. выполни для x=175 следующий алгоритм. a: =xdiv100b: =xmod100c: =xmod10s: =a+b+c

Nbsp; дано масив а=[[123, 15, 70, , 3, , 3]] відобразитт к-сть рядків в масиві і к-сть елементів в третьому і першому рядку

Сколько символов в тексте, если мощность алфавита - 32 символа, а объем информации, содержащийся в нем - 1.5 кбайта?

Найти ответ по рабочей тетради по информатике 2 часть 3 класс матвеева стр 12 имя объекта лиса медведь слон лось общие свойства всех объектов найти ответ

Напишите, что делает этот фрагмент программы var a: array [1..Sz] of integer; N: integer; i: integer; begin N := 20; for i:=1 to N do a[i] := Random(100); writeln('Элементы массива: '); for i:=1 to N...

Написать подпрограмму для нахождения значения числа е с ряда с заданной точностью (e+1+1/1! +1/2! +1/3! + 1/n! + in fotran

найти ошибки и написать блок схему program cars; var m, v, c:real; E, F, S: real; const N=9.8; begin writeln('Введите массу в кг'); readln(m); writeln('Введите скорость в м/с'); readln(v); writeln('Ко...

Решите задачу на Пример работы: Ввод: 1 Вывод: 1 Ввод: 3 Вывод: 6

Что выведет на экран эта программа? string s = "монитор"; string q = s.substr(1, 5); cout << q;

Дано действительное число а. Вычислить f(a), если

Сколько битов информации содержит первая страница учебника

6. вычислите выражения и запишите ответ в десятичной системе счисления 624(8)+10101(2)*f(16)- 1270(8)

Используя MS Excel, определи факториал числа 19

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

Исходное данное — трёхзначное число x. выполни для x=175 следующий алгоритм. a: =xdiv100b: =xmod100c: =xmod10s: =a+b+c

Nbsp; дано масив а=[[123, 15, 70, , 3, , 3]] відобразитт к-сть рядків в масиві і к-сть елементів в третьому і першому рядку​

Сколько символов в тексте, если мощность алфавита - 32 символа, а объем информации, содержащийся в нем - 1.5 кбайта?

Найти ответ по рабочей тетради по информатике 2 часть 3 класс матвеева стр 12 имя объекта лиса медведь слон лось общие свойства всех объектов найти ответ

Напишите, что делает этот фрагмент программы var a: array [1..Sz] of integer; N: integer; i: integer; begin N := 20; for i:=1 to N do a[i] := Random(100); writeln('Элементы массива: '); for i:=1 to N...

Написать подпрограмму для нахождения значения числа е с ряда с заданной точностью (e+1+1/1! +1/2! +1/3! + 1/n! + in fotran

найти ошибки и написать блок схему program cars; var m, v, c:real; E, F, S: real; const N=9.8; begin writeln('Введите массу в кг'); readln(m); writeln('Введите скорость в м/с'); readln(v); writeln('Ко...

Решите задачу на Пример работы: Ввод: 1 Вывод: 1 Ввод: 3 Вывод: 6

Что выведет на экран эта программа? string s = "монитор"; string q = s.substr(1, 5); cout &lt;&lt; q;

Дано действительное число а. Вычислить f(a), если

Сколько битов информации содержит первая страница учебника

6. вычислите выражения и запишите ответ в десятичной системе счисления 624(8)+10101(2)*f(16)- 1270(8)​

Используя MS Excel, определи факториал числа 19

Nbsp; дано масив а=[[123, 15, 70, , 3, , 3]] відобразитт к-сть рядків в масиві і к-сть елементів в третьому і першому рядку

Что выведет на экран эта программа? string s = "монитор"; string q = s.substr(1, 5); cout << q;

6. вычислите выражения и запишите ответ в десятичной системе счисления 624(8)+10101(2)*f(16)- 1270(8)