Напишите программу, которая возводит в квадрат трехзначное число, введённое с клавиатуры,...

Question

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

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.

Comments

хмм, действительно. почему то прочитал "в куб". спасибо.