М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kivialisalittlee
kivialisalittlee
05.09.2022 19:59 •  Информатика

Вывести на экран двузначные числа кратные 11 и вычислить их произведения

👇
Ответ:
dasha29saranina1234
dasha29saranina1234
05.09.2022
У меня получилось вот что. Я вывел произведения ПОПАРНО, одновременно организовал вывод на дисплей в 5 столбиков (а при работе WriteLn результаты не помещаются в одном окошке.
4,8(65 оценок)
Ответ:
plsplizovich
plsplizovich
05.09.2022
Var i:integer;   p:real;
begin
writeln('числа кратные 11: ');
p:=1;
for i:=10 to 99 do
if i mod 11=0 then begin p:=p*i; write(i:3);  end;
writeln;
writeln('произведение= ',p);
end.

Вывести на экран двузначные числа кратные 11 и вычислить их произведения
Вывести на экран двузначные числа кратные 11 и вычислить их произведения
4,4(88 оценок)
Открыть все ответы
Ответ:
maga20082
maga20082
05.09.2022

Аралас сілтемелер . Аралас сілтеме абсолютті және салыстырмалы бағанды ​​жолды немесе абсолюттік жолды және салыстырмалы бағанды ​​немесе қамтиды. Абсолютті сілтеме т.б. ба андар $ A1, $ В1, нысанын қабылдайды Абсолютті сілтеме желісі және т.б., $ 1 B, пішін $ 1 қабылдайды Сіз формуланы салыстырмалы сілтеме өзгерістер мен абсолюттік сілтеме бар ұяшықтың орнын өзгерту болса, өзгермейді. Көшіргіңіз кезде салыстырмалы сілтеме бойымен жолдар мен бағандарда арқылы формула автоматты түрде реттеледі және абсолютті сілтеме түзетілген емес.

Объяснение:

Негізі білмеймін бірақ сәттілік

4,5(22 оценок)
Ответ:
katiapopovici
katiapopovici
05.09.2022

program z1;

var a,m:integer;

begin

read(a);

if a mod 2 = 0 then

begin

m:=a mod 10;

if a div 100 > m then m:=a div 100;

if a mod 100 div 10 > m then m:=a mod 100 div 10

end

else m:=a mod 100 div 10;

write(m)

end.

Объяснение:

Вводим число

Если число чётное, то

1) присваиваем m значение последней цифры числа

2) если первая цифра числа больше m, то присваиваем m значение первой цифры числа

3) если вторая цифра числа больше m, то присваиваем m значение второй цифры числа

иначе присваиваем m значение второй цифры числа

Выводим m


Нильс сидел верхом на гусе, как всадник на скачущем коне: он вобрал голову в плечи, съёжился и всем
4,4(47 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ