Задать вопрос
7 февраля, 16:17

1. Составьте программу в Pascal ABC. Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет.

2. Составьте программу в Pascal ABC. Дано двузначное число. Найти сумму и произведение его цифр.

3. Составьте программу в Pascal ABC. Дано двузначное число. Вывести число, полученное при перестановке цифр.

+3
Ответы (1)
  1. 7 февраля, 19:03
    0
    1.

    var a: real;

    x, y: integer;

    begin

    readln (x, a, y) ;

    writeln ('1 kg konfet stoit ', a/x:1:2) ;

    writeln (y,' kg konfet stoyat ', a/x*y:1:2) ;

    readln;

    end.

    2.

    var a, s, p: integer;

    begin

    readln (a) ;

    s:=a mod 10 + a div 10;

    p: = (a mod 10) * (a div 10) ;

    writeln (s) ;

    writeln (p) ;

    readln;

    end.

    3.

    var a, b: integer;

    begin

    readln (a) ;

    b: = (a mod 10) * 10 + (a div 10) ;

    writeln (b) ;

    readln;

    end.

    Это если без циклов.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1. Составьте программу в Pascal ABC. Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет. 2. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы