Решите задачу на языке Pascal: Задача: Найдите сумму двузначных чисел, которые делятся на сумму своих цифр.Выведите эти числа и их сумму.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составьте программу, которая выводит слово без букв «а».
Автор: Екатерина_Кирушев
На серваке Strawberry GTA5RP с какого лвл инкасатор?
Автор: fucingprinces30
Pascal Ввести двумерный массив, состоящую из [n, m] элементов. Найдите сумму всех элементов.
Автор: opscosmiclatte7868
Дәстүрлі формат5, 630, 325, 5Бөлшек форматы5 3/5303/10251/2
Автор: Letajushaya362
Построить таблицу истинности и логическую схему для логического выражения: ¬x∧y∧z
Автор: Nurislamovna1543
var
i, x, y, err, num: integer;
s: string;
begin
num := 0;
for i := 10 to 99 do begin
Str(i, s);
Val(s[1], x, err); Val(s[2], y, err);
if i mod x + y = 0 then begin num := num + i; Writeln('Число: ', i); end;
end;
Writeln('Сумма равна: ', num);
end.
Объяснение: