Ответы на вопрос:
Var a: integer; s: string; begin readln(a); str(a,s); if (pos('7',s)> 0) then a: =a*a; writeln(a); end.
Популярно: Информатика
-
Запишите числа в кратком виде: 1⋅83+3⋅82+5⋅81+4⋅80 3⋅41+3⋅4-1 1⋅24+1⋅22+1⋅21+1⋅2-2...
sashapro22828.01.2023 18:03 -
Ақпарат сөзі қай тілден аударылған...
slava4В02.03.2021 15:24 -
Написать сообщение о периферийных устройствах устройства вывода...
Gazeerovka31.08.2020 01:45 -
почему древнейшие люди использовали пальцы,нити ,камни,деревянные палочки я вам...
kuklas22809.06.2022 21:22 -
Индивидуальное по программе pyton....
whitesnaff18.12.2022 19:16 -
Втаблице запросы и количество найденных по ним страниц некоторого сегмента сети...
saddddddd0317.01.2021 23:14 -
Написать программу на паскале по : сформировать двумерный массив b размером 4 x...
Алина05240801.02.2021 11:01 -
Сделайте по ! 1) при приеме некоторого сообщения получили 16 бит информации. сколько...
Dronton20.06.2022 21:24 -
Зачем нужна сноска? нужен полный ответ...
iavorskayavika06.06.2022 01:33 -
Какие существуют виды гиперсылок...
мак11921.03.2020 05:21