Catty226
Опубликовано 6 лет назад по предмету Информатика от Catty226


Составить программы: 1. Вычисления суммы цифр трехзначного числа (используя mod и div) 2. Определения наибольшего из трёх чисел a,b,c 3. Определения является ли счастливым билет с четырёхзначным номером.

  1. Ответ
    Ответ дан альстофер
    Program zzadani;Var n,b,a,c:integer;Begin Writeln('Введите трехзначное число'); Readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=(n mod 100) mod 10; n:=a+b+c; Writeln('Сумма цифр данного числа=',n);End.
    1. Ответ
      Ответ дан альстофер
      Program zzadani;Var n,b,a,c:integer;Begin Writeln('Введите трехзначное число'); Readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=(n mod 100) mod 10; n:=a+b+c; Writeln('Сумма цифр данного числа=',n);End.
    2. Ответ
      Ответ дан альстофер
      так лучше
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц