Написать программку, которая обретает сумму первой и третьей числа трёхзначного числа.

Написать программку, которая находит сумму первой и третьей числа трёхзначного числа.

Задать свой вопрос
1 ответ
Program Sum;
var   
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел одинакова',s);
end. 
Timur Logvenchev
Спасибо, но это программа пишется не таким образом, так необходимо использовать как-то div,mod.
Алёна Ливадная
Например: определение суммы цифр трехзначного числа: 1-ая цифра: C1= X \ 100 Вторая цифра: C2= X \ 10 MOD 10 3-я цифра: C3= X MOD 10 Сумма цифр: S = C1 + C2 + C3
Юра
Окончательный вариант CLS FOR X = 100 TO 999 C1= X \100 С2 =X \10 MOD 10 C3 = X MOD 10 S=C1 + C2 + C3 IF (X MOD 7=0) AND (S MOD 7 =0) THEN PRINT X K = K + 1 END IF NEXT X PRINT ВСЕГО:, K END
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт