1. Информатика
  2. Напишите программу на pascal​

Напишите программу на pascal​

Alina18181 Alina18181    1   29.10.2019 06:29    0

Ответы
alenaav08 alenaav08  10.10.2020 10:05

var k,p: integer;

begin

readln(k,p);

if k*80<p*70 then

write('автомобилист проедет меньший путь; разность: ',p*70-k*80,'км')

else write('мотоциклист проедет меньший путь; разность: ',k*80-p*70,'км');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Alina29521 Alina29521  11.05.2020 15:49
Используя цикл while напишите программу, которая вычислит сумму квадратов чисел от 1 до числа n. Значение n вводится с клавиатуры на языке Паскаль...
MashaZhukova12345 MashaZhukova12345  11.05.2020 15:49
11. Модель отражает:1. все существующие признаки объекта2. некоторые из всех существующих3. существенные признаки в соответствии с целью моделирования4. некоторые существенные...
rendly21 rendly21  11.05.2020 15:49
Вставить элемент Дан список целых чисел, число и значение. Необходимо вставить в список на позицию с индексом элемент, равный , сдвинув все элементы, имевшие индекс не менее...
Крайз Крайз  11.05.2020 15:49
СОСТАВИТЬ БЛОК СХЕМУ ОЧЕНЬ Введите количество минут и секунд через пробел: ) ; readln (m, n) ; if (18 * (m * 90 + n) = 9 * 1024) then writeln ( Песня поместится ) else writeln...
annavelikks03 annavelikks03  11.05.2020 15:49
Составьте команды для чертежника на абсолютное смещение по данному рисунку:как можно скорее​...
Линда133 Линда133  31.08.2019 21:20
Сервер это? а) компьютер,обслуживающий сеть б) переферийное устройство...
matetskayamilan matetskayamilan  31.08.2019 21:20
Мне по информатеке для проэкта нужен опрос.ответьте на вопрос: как вы бы электричество...
Анелька0 Анелька0  12.09.2019 21:13
Начертить блок-схему алгоритма. ввести вещественные числа (количество чисел заранее не известно, предполагается, что есть функция, определяющая, пуст ли входной поток)....
Dewerro Dewerro  12.09.2019 22:20
3)запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s : = 15; n : = 0; while 50 s*s do begin s : = s - 1; n : = n + 2 end; writeln(n)...
Ангелочек350 Ангелочек350  17.09.2019 07:40
Нужно решить на мове pascalabc вычислить количество цифр целого неотрицательного числа n. входные данные #1 12343 выходные данные #1 5...

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