Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Составить программу, которая запрашивает у пользователя целое двухзначное число и прибавляет к нему сумму его цифр.

10-11 класс

Divan14 30 апр. 2014 г., 0:21:53 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Narina55798
30 апр. 2014 г., 2:02:43 (9 лет назад)

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.

+ 0 -
Nikolay123321
30 апр. 2014 г., 4:01:25 (9 лет назад)

var a: 10..99;

begin

  readln(a);

  writeln(a+(a mod 10)+(a div 10));

end.

Ответить

Другие вопросы из категории

1)В некоторой системе счисления записи десятичных чисел 68 и 94

заканчиваются на 3. Определите основание системы счисления.
2)

1)Найти сумму 1/2+1/4+1/6...1/20 на паскале с помощью while и точно такую же задачу с циклом for

2)Возведение степени a в степень n, с помощью while

стукиновтукиымготукидом

помогите расшифровать

Читайте также

Напишите прог-у на паскале... ПЛИИИИИИИИИИЗ 1)даны действительные числа a1, b1, c1, a2, b2, c2. Составьте программу, которая находит координаты точки

пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.

Пожалуйста, пожалуйста помогите! Очень срочно надо! Составить программу, которая запрашивает вес пользователя Р и его рост R в см, а затем, если

выполнится условие Р меньше или равно R-100, то сообщает "Поздравляю. Ваш вес в норме", в противном случае - "Хорошо бы вам немного похудеть"



Вы находитесь на странице вопроса "Составить программу, которая запрашивает у пользователя целое двухзначное число и прибавляет к нему сумму его цифр.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.