tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составте програму, которая находит
Составте програму, которая находит количество двузначных чисел, которые делятся на сумму своих цифр.
jumaev1998
2 16.06.2019 04:20
0
Ответы
Bandit009
02.10.2020 02:32
var
i,m,n,sum,k:Integer;
Begin
for i:=10 to 99 do
begin
m:=i mod 10;
n:=i div 10;
sum:=m+n;
if (i mod sum = 0) then k:=k+1;
end;
Writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nastakosmos12
06.07.2019 08:10
Какой источник информации использовал царь салтан чтобы узнать о дальних странах...
dashakechenkova
06.07.2019 08:10
Верно ли ,что символ двоеточие «: » в информатике используется в программах для разделения элементов списка...
maanna24
18.07.2019 14:30
Вкаких системах счисления может быть записано число 1500?...
lingvini2013
18.07.2019 14:30
Определите, что будет выведено на экран после выполнения фрагмента программы: x: =0; y: =5; while y больше 0 do begin y: =y - 2; x: =x + y; end; writeln (‘x=’, x); ответ:...
Мальвина01
18.07.2019 14:30
Укажите минимальный обьем памяти ( в килобайтах ),достаточный для хранения любого растрового изображения размером 128*32 пикселя , если известно, что в изображении используется...
Lis666lis
18.07.2019 14:30
Определите значение переменной s после выполнения следующих операторов: s: =0; i: =0; while i больше 3 do i: =i+1; s: =s + 2*i;...
Cheather
18.07.2019 14:30
Определите значение переменной s после выполнения следующих операторов: s: =0; k: =6; while k больше 3 do k: =k - 1; s: =s + k;...
бббб9
18.07.2019 14:30
256-цветный рисунок содержит 120 байт информации. из скольких точек он состоит?...
lana231075
18.07.2019 14:30
Определите значение переменной s после выполнения следующих операторов: s: =1; for k: =3 to 6 do s: =s - k; ответ: -5 -2 1 0...
ragmova
18.07.2019 14:20
Определите информационный обьем изображения , состоящего из 32*64 точек в формате rgb...
Популярные вопросы
Доброго времени суток решить домашнее задание по английскому языку,...
3
Дано: АВ = 0,7 см, BN = 0,5 см, CN = 0,4 см. Найти: DN, DC....
2
Із якою силою діє вода на пробку в бічній стінці цистерни на глибині...
3
Внаслидок перемищення заряду 12 Кл по провиднику виконана робота 240...
3
1. Расскажите о Маленьком принце и его планете. 2.Как ведет себя Роза?...
1
Ребята, давайте вспомним как образуется время несовершенного вида):...
1
2. Поясніть зміст понять: варна, каста, буддизм, індуїзм....
3
Округлить до десятых долей...
1
Найдите и подчеркните существительные одной чертой и глаголы сказуемые...
3
Определите энергию, выделившуюся при протекании следующей реакции ответ...
3
i,m,n,sum,k:Integer;
Begin
for i:=10 to 99 do
begin
m:=i mod 10;
n:=i div 10;
sum:=m+n;
if (i mod sum = 0) then k:=k+1;
end;
Writeln(k);
end.