Регистрация
prizrak6571
02.07.2022 19:10
Информатика
Есть ответ 👍

Вивести на екран більше з двох даних чисел

246
284
Посмотреть ответы 2

Ответы на вопрос:

catarshaninp08iio
catarshaninp08iio
4,4(31 оценок)
Var     a,b: integer; begin write('введите два числа: '); readln(a,b); if a> b then write(a) else write(b) end. введите два числа: 3 1 3
Tgnbva
Tgnbva
4,4(72 оценок)

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.

Популярно: Информатика