Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Sk174
29.09.2020 17:21 •
Информатика
решить задачу на Pascal???
👇
Увидеть ответ
Открыть все ответы
Ответ:
Лейла0044
29.09.2020
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.
4,6
(7 оценок)
Ответ:
20071218hi
29.09.2020
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.
4,8
(52 оценок)
Это интересно:
Х
Хобби-и-рукоделие
19.02.2020
Как начать бизнес по производству самодельного мыла...
Ф
Финансы-и-бизнес
05.11.2020
Как выбрать нотариуса для распределения наследуемого имущества...
К
Компьютеры-и-электроника
09.06.2023
Как импортировать контакты в WhatsApp на Android-устройстве: инструкция...
К
Компьютеры-и-электроника
12.07.2021
Как создать игру с помощью Game Maker 7.0 Lite...
К
Кулинария-и-гостеприимство
06.01.2020
Как сделать гуакамоле: рецепт и советы от профессионалов...
Ф
Финансы-и-бизнес
24.05.2021
Как получить бесплатные вещи без какого-либо мошенничества: советы и рекомендации...
С
Стиль-и-уход-за-собой
21.06.2021
Как блокировать удар: советы от профессионалов для самозащиты...
01.10.2020
Как встречаться с парнем из другой школы: советы и техники...
З
Здоровье
06.07.2021
Как повысить либидо: простые способы улучшения сексуальной жизни...
К
Компьютеры-и-электроника
28.05.2023
Как зарабатывать в игре RuneScape не имея членства: лучшие способы...
Новые ответы от MOGZ: Информатика
Zadornov200215
19.09.2021
Как запускаем готовый проект в ! информатика...
dedovu6
20.10.2020
Склавиатуры вводятся натуральные числа a и n. найти сумму n четных чисел, начиная с a....
Алишер00001
23.02.2020
Двое по очереди ломают шоколадку 4*9. за ход можно разломать любой кусок прямой линии между дольками. проигрывает тот, кто не может сделать ход. кто выиграет?...
redridinghood1
08.10.2021
Написать программу на языке pascal для вычисления n-ой степени заданного числа!...
ЛёхаТихонов
30.05.2020
Как узнать вес одного символа ? например обьясните мне : мощность алфавита 64 (это n=6) почему 6?...
inpurple
22.12.2022
Python s = 600 for k in range (5, 13) : s = s - 4*k print (s) решите с объяснением кому не трудно: )...
miniloza2005
04.11.2021
30 напишите программу, которая в последовательности натуральных чисел определяет самое маленькое число в последовательности, кратное 4 и оканчивающихся на 6 программа получает...
kakaha12
10.05.2023
Для выражения в предыдущем запишите равносильное выражение без использования операции не. после этого расставьте одну пару скобок так, чтобы значение выражения при а = 5, b...
PomogitePLS111
22.10.2022
решить квадратное неравенство.. x-x²+2 _0...
asdffhcjbh
22.10.2022
В чем заключалась англо-французское соперничество в Индии...
MOGZ ответил
Как решить номер 1114 по математике 5 класс...
2. Найти при каком значении переменной алгебраическая дробь (1-3х)/(х+6)...
На рисунке изображена схема электрической цепи. В эту цепь параллельно включены...
{ сокращенные ионные уравнения к этим реакциям или баланс для овр....
1.Do you like to travel? 2.How do you like to travel? 3.Whom do you like...
проверте текст. Посмотрите я правильно вставила буквы и вставте знаки препинания...
КЛАСС ГЕОМЕТРИЯ 1. R=16cм, d=12см 2. R=5см, d=4,2см 3. R=7,2дм, d=3,7дм...
Какие средства применяются при язвенной болезни желудка в острой форме ?...
Cats ... very well in the dark A. See B. Sees C. Saw...
Суреттер бойынша тақырыпты болжаңдар про Казахстан полалуйстк ...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.