Напишите программу, которая возводит в квадрат трехзначное число, введённое с клавиатуры, при условии, что в числе содержится цифра 7. Если в числе нет цифры 7, то следует вывести число в исходном виде(через оператор if)Паскаль

Напишите программу, которая возводит в квадрат трехзначное число, введённое с клавиатуры, при условии, что в числе содержится цифра 7. Если в числе нет цифры 7, то следует вывести число в исходном виде(через оператор if)Паскаль
Гость
Ответ(ы) на вопрос:
Гость
var a:integer; s:string; begin  readln(a);  str(a,s);  if (pos('7',s)>0)  then    a:=a*a;  writeln(a); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы