{Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр} 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);
if (mistake) { printf("Invalid code.\n"); return -1; } }
printf("Fixed code: %s\n", input); for (i = 0; i < len; i++) if (i + 1 == b) b <<= 1; else info[info_pos++] = input; info[info_pos] = '\0'; printf("Informational string: %s\n", info); return 0; }
Определить:
а) является ли сумма его цифр двузначным числом;
б) больше ли числа а сумма его цифр}
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.