Предмет: Информатика,
автор: Catty226
Составить программы
1. Вычисления произведения цифр трехзначного числа (используя div и mod)
2. Определения возможности существования треугольника по трём сторонам a,b,c.
3. Определения чётности четырёхзначного натурального числа.
Ответы
Автор ответа:
1
Program vs4;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.
так удобнее
Интересные вопросы
Предмет: Қазақ тiлi,
автор: nnnnnkrashiha222
Предмет: Қазақ тiлi,
автор: rycikorazow
Предмет: Алгебра,
автор: anisamurtazaeva3011
Предмет: Математика,
автор: etihor011
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.