Написать программку, которая обретает сумму первой и третьей числа трёхзначного числа.
Написать программку, которая находит сумму первой и третьей числа трёхзначного числа.
1 ответ
Арсений Хорович
Program Sum;
var
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел одинакова',s);
end.
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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов