В Паскале пожалуйста найдите количество двухзачных чисел, сумма цифр которых равна 4
5-9 класс
|
program noname;
uses crt;
var
k,n:integer;
begin
clrscr;
k:=0;
for n:=10 to 99 do
if n mod 10 + n div 10 = 4 then k:=k+1;
writeln(k,'-кол-во двухзначных чисел, сумма которых равна 4');
end.
Другие вопросы из категории
№2 Назовите базовый тип интервального типа:
№3 какие значения может принимать каждая переменная из следующих описаний:
направо в порядке убывания количества страниц, которые найдёт поисковый сервер по каждому запросу. Для обозначения логической операции «ИЛИ» в запросе используется символ |, а для логической операции «И» – &.
Читайте также
2)В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
2. Составить программу удвоения большего из двух чисел.
3. Написать программу вычисления произведения всех двузначных четных чисел.
4. Определить количество двузначных натуральных чисел, сумма цифр которых равна заданному числу N.
Все в Pascal. Очень прошу помочь