Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Zulik007
10.05.2021 08:26 •
Информатика
Напишите программу, которая возводит в квадрат трехзначное число, введённое с клавиатуры, при условии, что в числе содержится цифра 7. если в числе нет цифры 7, то следует вывести число в исходном виде(через оператор if)паскаль
Показать ответ
Ответ:
alina28551
02.08.2020 23:57
Var a:integer; s:string;
begin
readln(a);
str(a,s);
if (pos('7',s)>0)
then
a:=a*a;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kirillyamont2
30.10.2021 19:23
576 Тбайт = (2?+ 2?) Кбайт = (2?+ 2?) бит по подробнее решите ))...
dima0124124
25.02.2020 01:11
История возникновения измерения информации с древности до наших дней нужно про один век не много предложений 10-15 ಠ_ಠ нечего не знаю... за лето всё забылось кароч...
NikichRUS25
01.01.2020 11:21
Услуги сети интернет : электронная почта - это система - изобретатель электронной почты - адрес электронной почты состоит из - протоколы электронной почты -...
yakun3008
03.09.2021 20:21
13. дискеты предназначены для: а) временного хранения информации б) обмена программами и данными между различными пк в) вывода информации на экран г) хранения архивной...
Jikogogo
28.09.2022 11:07
1.при остывании чугуна массой 4 т выделяется 54 мдж теплоты. на сколько градусов изменится температура чугуна? 2.какое кол-во теплоты было получено газом,если его...
nikita228928
28.09.2022 11:07
Найдите область определения функции: y=4степень под корнем 2x-4...
leraaleksan
28.09.2022 11:07
Среди данных дробей найдите равные: 25/30, 4/5, 12/20, 0,8, 27/45...
Нияз2014
28.09.2022 11:07
Один из углов , образовавшихся при пересечение двух прямых , на 70 градусов больше другого . найдите эти углы...
Dasha1648938190
28.09.2022 11:07
Братссестрой – витяилена – решили купить альбом для марок стоимостью 310 руб. есливитя даст 2/3 своих денег, а лена 3/4 своих денег, то этого хватит на покупку...
Tomoki
28.09.2022 11:07
Династия к которой принадлежали первые франкские правители...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
str(a,s);
if (pos('7',s)>0)
then
a:=a*a;
writeln(a);
end.