Написать программу Паскаль, которая решает следующую задачу: телефонные разговоры с тремя населенными пунктами стоят с1, с2, с3 коп./мин. Разговоры длились
5-9 класс
|
t1, t2, t3 минут сооветственно. Какова общая стоимость разговоров?
Program razgovor;
uses crt;
var c1,c2,c3:integer;
t1,t2,t3:integer;
begin
Write('Введите цену разговора с первым пунктом, с1= ');
Readln(c1);
Write('Введите цену разговора со вторым пунктом, с2= ');
Readln(c2);
Write('Введите цену разговора с третьим пунктом, с3= ');
Readln(c3);
Write('Введите длительность разговора с первым пунктом, t1= ');
Readln(t1);
Write('Введите длительность разговора со вторым пунктом, t2= ');
Readln(t2);
Write('Введите длительность разговора с третьим пунктом, t3= ');
Readln(t3);
clrscr;
Writeln('Общая стоимость разговора = ',c1*t1+c2*t2+c3*t3)
end.
Другие вопросы из категории
Перевод дюймов в сантиметры (1дюйм=2,54см). Нужно, чтобы при запуске программы на экране выходило в два столбика дюймы и сколько это будет сантиметров. До 20 чисел. Через оператор While.
выводит на экран числа оканчивающиеся на 1
Читайте также
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
слова "белка" и числа 10).
день», «Добрый вечер», «Спокойной ночи».
2. Составьте программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным весом и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100.
Помогите решить 2 задачи
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
Составить программу, решающую следующую задачу: дано трехзначное число. В нем зачеркнули первую цифру слева и приписали ее справа. Вывести полученное число.
Так же:
Составить программу, решающую следующую задачу: дан номер некоторого года (целое положительное число). Определить соотв-щий ему номер столетия, учитывая, что, к примеру, началом 20го столетия был 1901 год. Сам то я знаю как решать, но не смогу записать это в паскаль!