Задать вопрос
13 июля, 11:35

Исправьте ошибки и определите, что будет выведено на экран после выполнения программы. Сформулируйте условие задачи для данной программы:

Program Prim2.5;

Var a:Integer;

c, d, e, f:Longint;

Begin

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

Readln (a) ;

b : = a mod10;

c : = a div 10;

d: = c mod 10;

e:=c div 10;

f:=b+d+e;

Writeln (' Ответ равен ', f) ;

Readln;

End.

+1
Ответы (1)
  1. 13 июля, 13:03
    0
    Program Prim25;

    var

    a: Integer;

    b, c, d, e, f: Longint;

    begin

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

    Readln (a) ;

    b : = a mod 10;

    c : = a div 10;

    d : = c mod 10;

    e : = c div 10;

    f : = b + d + e;

    Writeln (' Ответ равен ', f) ;

    Readln;

    end.

    Тестовое решение:

    Введите трехзначное число

    574

    Ответ равен 16

    Программа выводит сумму цифр введенного трехзначного числа
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Исправьте ошибки и определите, что будет выведено на экран после выполнения программы. Сформулируйте условие задачи для данной программы: ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Определить значение выражения: 1) 10 div 15 2) 10 div 2 3) 10 mod 2 4) 10 mod 17 5) 123 mod 10 6) 123 div 10 7) 1 div 2 8) 123 mod 1000 9) 100 mod 27 div 3 10) 100 div 5 mod 3 11) 98725 div 1000 mod 10 12) 100 mod 5 div 3
Ответы (1)
Объясните строчку (c:=10*c+a mod 10; a : = a div 10;) program pr36; function qwer (var a, b: integer) : integer; var c: integer; begin c:=0; while a > 0 do begin c:=10*c+a mod 10; a : = a div 10; end; qwer: = c; end; var a, b: integer;
Ответы (1)
Тест: Операторы целочисленной арифметики div и mod 1. Вычислите: 25 div 11 2.27 3 2 2. Вычислите: 64 div 9 1 7 6 3. Вычислите: (35 div 2) div 5 2 17 3 4. Вычислите: (78 div 5) mod 10 5 15 10 5. Вычислите: (25 mod 11) + (18 mod 7) 3 7 4 6.
Ответы (1)
1. Решите примеры 13 div 5 = 13 mod 5 = 5 div 5 = 5 mod 5 = 3 div 8 = 3 mod 8 = 10 div 6 mod 3 = 2. Определите результат выполнения следующих действий а) a:=1819; b: = (div (а, 100)) * 10 + 9 a: = mod (10*b - a),100) а = ? b = ?
Ответы (1)