Предмет: Информатика,
автор: natsyapayne
Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом;
б) больше ли числа а сумма его цифр
ОЧЕНЬ СРОЧНО!!!
mnv1962:
ЯЗЫК КАКОЙ?
Ответы
Автор ответа:
42
var
a:integer;
begin
readln(a);
if (a mod 10+a div 10>10) and(a mod 10+ a div 10<100) then
writeln('двузначное')
else writeln('не двузначное');
if a mod 10+a div 10>a then
writeln('больше')
else writeln('не больше');
end.
a:integer;
begin
readln(a);
if (a mod 10+a div 10>10) and(a mod 10+ a div 10<100) then
writeln('двузначное')
else writeln('не двузначное');
if a mod 10+a div 10>a then
writeln('больше')
else writeln('не больше');
end.
Автор ответа:
13
{Дано двузначное число.
Определить:
а) является ли сумма его цифр двузначным числом;
б) больше ли числа а сумма его цифр}
var n, s : byte;
a:integer;
begin
writeln('введите двузначное число');
readln(n);
{определение суммы цифр числа div - целая часть от деления, mod - остаток от деления}
s:=n div 10 + n mod 10;
writeln('сумма цмфр числ', n:5, 'равна',s:5);
if s>9 then writeln('сумма цифр двузначное число', s)
else writeln('сумма цифр не двузначное число', s);
writeln('введите число а');
readln(a);
if s>a then writeln('сумма цифр', n,' больше ли числа ', a)
else writeln('сумма цифр', n,' меньше числа ', a);
end.
Определить:
а) является ли сумма его цифр двузначным числом;
б) больше ли числа а сумма его цифр}
var n, s : byte;
a:integer;
begin
writeln('введите двузначное число');
readln(n);
{определение суммы цифр числа div - целая часть от деления, mod - остаток от деления}
s:=n div 10 + n mod 10;
writeln('сумма цмфр числ', n:5, 'равна',s:5);
if s>9 then writeln('сумма цифр двузначное число', s)
else writeln('сумма цифр не двузначное число', s);
writeln('введите число а');
readln(a);
if s>a then writeln('сумма цифр', n,' больше ли числа ', a)
else writeln('сумма цифр', n,' меньше числа ', a);
end.
Похожие вопросы
Предмет: Английский язык,
автор: SofiaDash
Предмет: Русский язык,
автор: annett3453
Предмет: Українська мова,
автор: Сурикатина
Предмет: Обществознание,
автор: kostyashafikov