Составить программы:
1. Вычисления суммы цифр трехзначного числа (используя mod и div)
2. Определения наибольшего из трёх чисел a,b,c
3. Определения является ли счастливым билет с четырёхзначным номером.
Ответы
Ответ дал:
0
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.
Ответ дал:
0
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.
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.
Ответ дал:
0
так лучше
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад