tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Среди трехзначных чисел найдите
Среди трехзначных чисел найдите те ,сумма первой и последней цифр которого равна 7. паскаль
evamakarova20
1 01.06.2019 08:10
0
Ответы
raivon2005new
01.10.2020 16:22
Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ксю882
24.12.2020 15:59
Если число Х - отрицательное, то возвести его в квадрат. А если положительное, то прибавить его само к себе, т.е. х+х. Ну и естественно с выводом числа в конце PASCAL...
ssss13
24.12.2020 15:59
Составить программу подсчета количества трехзначных чисел, у которых сумма четных цифр равна 10. вывести сами числа и их количество....
Женя8а
24.12.2020 15:59
создать алгоритм модели дивана...
alinaby13
17.12.2021 13:28
до 15:00 на пайтоне или паскале...
leraya08
17.12.2021 13:35
Выберите верную операцию отношения для записей в текстовых полях «Влад» ? « Влад». 1 2 3 = 4 =...
kkkkksss
17.12.2021 13:37
Надо решить красненькое очень дам...
пух8564
17.12.2021 13:39
РЕШИТЬ ЗАДАЧИ НА C# Windows Forms 1.Поменять в строке все согласные прописные на строчные 2.Дан одномерный массив размера N, переставить местами элементы МАКС МИН...
Velievtim2000
17.12.2021 13:40
Начертите фигуру, изображенную на рисунке, используя переменные в цикле для....
соня1571
17.12.2021 14:06
Написати програму для обчислення значення виразу g= arctg(a^2+9)+arctg(b^2+1)/arctg(a^2+c^2) з використанням підпрограми функц...
weldys99
17.12.2021 14:30
3. Построить таблицу истинности для следующих формул (AVB)& (AVC) x& y- (x v y - z) x - y - x v y& z. 4. Упросить следующие формулы xvx&y; x - (x...
Популярные вопросы
Почему герои в сказках Пушкина находят отклик в наших сердцах?...
2
Площина перетинає сторони трикутника АВС у точці м (м BA) й у...
2
Прочитайте текст и определите сражение, о котором идёт речь:Только...
2
Боря, Витя, Гриша и Егор встретились на Всероссийской олим-пиаде...
3
Зазначте, які негативні якості ліліпутів висміює Дж. Свіфт і...
1
Преобразуй указанные единицы. Округление не выполняй! 38,2534...
3
78 с.ш 170 в.д54 ю.ш 170 в.д...
3
Житие 1. Образ дьявола, змея-искусителя 2. Явление ангела в виде...
1
Указати рядок, у якому всі слова з нульовим закінченням: а) вогонь,...
3
разыграйте не большой диалог. Один партнёр любит путешествовать...
3
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.