Задать вопрос
30 августа, 08:45

Составьте программу произведения первой и третьей и суммы второй и четвертой цифры четырехзначного числа

(Паскаль)

+5
Ответы (2)
  1. 30 августа, 08:52
    0
    Program zadacha;

    var

    a, p, s:integer;

    begin

    writeln ('Введите четырехзначное число') ;

    readln (a) ;

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

    s: = (a div 100 mod 10) + (a mod 10) ;

    writeln ('Произведение первой и третьей = ', p) ;

    writeln ('Сумма второй и четвертой = ', s)

    end.
  2. 30 августа, 09:36
    0
    Program programma;

    var a, b, c, d, e, p, s: integer;

    begin

    writeln ('Введите четырехзначное число') ;

    readln (a) ;

    b:=a div 1000;

    c:=a div 100;

    c:=c mod 10;

    d:=a mod 100;

    d:=d div 10;

    e:=a mod 10;

    p:=b*d;

    s:=c+e;

    writeln ('Произведение первой и третьей цифры равно ', p,', сумма второй и четвертой цифры равна ', s) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составьте программу произведения первой и третьей и суммы второй и четвертой цифры четырехзначного числа (Паскаль) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы