Ответы на вопрос:
Var k,m,n: real; begin readln(m,n); k: =m mod 5; if (m div n)> k then writeln( (m/n)*(m/n) ); end.
Популярно: Информатика
-
Program usi; Var d,r: real; Begin writeln( ВЕДИТЕ ЧИСЛ ); Readln...
Даньок801.04.2022 17:11 -
сор по информатике Ученик нарисовал изображения цветов. Данные...
Brilliana199912.08.2022 07:18 -
Надо превратить из слова бег в слово шаг. постепенно меняя по одной...
Tramontino02.01.2020 16:39 -
Уприлавка магазина выстроилась очередь из n покупателей. время...
Ксюша007111112.04.2020 11:47 -
Монитор позволяет получать на экране 2^24 цветов.какой объём памяти...
Sanya311024.05.2021 10:05 -
Составить программу светофор в pascalabc...
Stepan7123.05.2023 03:12 -
Растрлык суреттерды ондеуге бола ма...
тигр18601.10.2020 13:22 -
Расскажите о следующих дополнительных устройств (компьютера) :...
Maruua127.09.2022 01:25 -
Вы угадываете знак зодиака вашего друга.сколько вопросов вам нужно...
daniil32628.05.2020 04:35 -
Тіло циклу утворюють а-команди б- скрипти в - процеси г - об єкти...
lerakuzka06.01.2020 09:48