Составить программу, которая запрашивает у пользователя целое двухзначное число и прибавляет к нему сумму его цифр.
10-11 класс
|
Program n1;
Uses CRT;
Var x,a,b: integer;
begin
ClrScr;
writeln('Vvedite x');
readln(x);
a:=x div 10;
b:=x mod 10;
Writeln(x,'+',a,'+',b,'=',x+a+b);
readln
end.
var a: 10..99;
begin
readln(a);
writeln(a+(a mod 10)+(a div 10));
end.
Другие вопросы из категории
заканчиваются на 3. Определите основание системы счисления.
2)
2)Возведение степени a в степень n, с помощью while
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
выполнится условие Р меньше или равно R-100, то сообщает "Поздравляю. Ваш вес в норме", в противном случае - "Хорошо бы вам немного похудеть"