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

Question

Лизавета

9 мая, 01:07

+1

Ответы (1)

Знаете ответ на вопрос?

Тимур · Answer 1

Var a:integer; s:string;

begin

readln (a) ;

str (a, s) ;

if (pos ('7', s) >0)

then

a:=a*a;

writeln (a) ;

end.