Напишите программу, которая возводит в квадрат трехзначное - вопрос №7241949 от Наталья0201 16.01.2023 21:24

Question

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

Наталья0201 · Answer

Var a:integer; s:string;begin readln(a); str(a,s); if (pos( 7 ,s) 0) then   a:=a*a; writeln(a);end....