Найдите и выведите на экран все двузначные числа, сумма цифр которыx не меняется при умножении на 2. (например, 27 и 27*2=54, сумма цифр чисел 27 и 54
5-9 класс
|
равна 9)
Язык программирования паскаль АВС
var i,tmp,s1,s2:integer;
begin
for i:=10 to 50 do begin
tmp:=i;
while tmp <> 0 do begin
s1+=tmp mod 10;
tmp:=tmp div 10;
end;
tmp:=i*2;
while tmp <> 0 do begin
s2+=tmp mod 10;
tmp:=tmp div 10;
end;
if (s1=s2) then write(i,' ');
s1:=0;
s2:=0;
end;
end.
Другие вопросы из категории
страницы текста на английском языке, содержащей 2400 символов. 2) В течение 5 секунд было передано сообщение, объём которого составил 375 байт. Каков размер алфавита, с помощью которого записано сообщение, если скорость передачи составила 200 символов в секунду?
Читайте также
Заранее большое спасибо)
1) Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка одновременно на 5 и 11.
2) Найдите и выведите на экран все двузначные числа, у которых при умножения на 2 сумма цифр увеличивается на 5.
Напишите программу пожалуйста!
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести: Номер: 2 значение: 4 Если совпадений нет, то вывести сообщение об этом. Заранее Спасибо.