Ответы на вопрос:
Var a: integer; begin write('a = '); read(a); if a> 50 then a: =(a div 10)+(a mod 10) else a: =(a div 10)*(a mod 10); write(a); end.
Популярно: Информатика
-
1. Между населенными пунктами А, Б, D, Е построены дороги. протяженность...
mmmmm26915.03.2021 17:01 -
Напишите программу, которая находила бы в прямоугольном треугольнике...
vadikloga13305.02.2021 18:55 -
Напишите программу которая сравнивает три числа и выводит произведение...
dbarkhatova31.05.2021 20:15 -
Что такое архивация и разархивация? кратко ответить...
aishaidrisova31.10.2021 17:34 -
Какие программы-архиваторы вы знаете?...
erzhankenzhekan12.03.2020 00:00 -
Сколько символов в алфавите если информационный вес символа составляет...
Маруся179914.11.2020 00:53 -
Изучение проблем сбора, обработки и передачи информации в различных отраслях...
NastyaKoryak08.01.2020 13:12 -
Дан массив.все его элементы умножить на последний элемент....
rbhz17.01.2022 03:16 -
Какие существуют названия компьютерных словарей?...
evgeha1982121.04.2020 00:41 -
Длина прямоугольника 3 4/5м, ширина на 1 1/5 м меньше.найдите периметр...
bar56904.09.2022 07:15