пожалуйста срочно помогите с задачей 5!!!!Помогите пожалуйста...
5-9 класс
|
program primer;
var i, k, b, a, s : integer;
begin
k:=0;
for i:= 10 to 99 do
begin
b:= i div 10;
a:= i mod 10;
s:=b + a;
if i mod s = 0 then inc(k) ;
end;
write ('количество чисел которые делятся на сумму своих цифр=', k);
readln;
end.
Другие вопросы из категории
элементов массива Р сформировать массив М того же размера по правилу: если номер четный , то Рi=i*Mi, если нечетный, то Рi=-Mi
использовать перфокарты для ввода и вывода данных, изобретение системы
предварительного переноса для ускорения расчетов, введение понятия
циклов операций и рабочих ячеек.
Читайте также
что угодно, помогу)Вот задача - Под конец учебного года ученики 11 класса решали понять у кого же из них будет самый высокий средний балл ? Известно , что - в классе учится 14 учеников, - Сумма всех средних баллов аттестата = 100.Известно также , что первый ученик имел средний балл, который составляет 1/ 12 суммы всех средних баллов. Второй ученик - на 0,15 % больше, чем первый ученик , но на 1,75 % меньше , чем третий ученик . Средние баллы аттестатов двух сестер были равными среднему арефметичному оценок вышеупомянутых учеников , разделенном на 1.5 . Четвертый ученика на конец года имел такой же балл , как и первый ученик , но на 5% меньше , а остальные ученики - имели равные баллы .Какой средний балл на конец года получил каждЫй?
тема у нас Организация ветвлений в Паскале. и так, вопрос:
дано трёхзначное число. если сумма цифр числа кратно 3, тогда перевернуть число, иначе обнулить среднюю цифру
очень срочно, кто может
Вы хотите работать с разрешением монитора 1600 на 1200 пикселей,используя 16777216 цветов.В магазине продаются видеокарты с памятью 512 кбайт