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

Question

Сона

23 августа, 07:45

+4

Ответы (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.