Из всех трехзначных чисел найти те у которых сумма числа сотен и числа десятков равна 7.срочно!!!!! пожалуйста! паскаль
29
ОТВЕТЫ
Var i: integer;
begin
for i:=100 to 999 do
begin
if (i div 100+(i div 10) mod 10 =7 ) then
print(i);
end
end.
begin
for i:=100 to 999 do
begin
if (i div 100+(i div 10) mod 10 =7 ) then
print(i);
end
end.
146
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Аполлинарий
Найти все двузначные числа ,в которых число десятков на ...
2019-02-01 09:04:02
Сократ
Какие управляющие элементы могут содержаться в диалоговых окнах и ...
2019-02-01 09:02:21
Иоанникий
Решите задание по информатике или хотя бы дайте подсказку ...
2019-02-01 08:59:42
Паисий
Действие с информацией в результате которого мы получаем информацию ...
2019-02-01 08:55:52