Удвоить трехзначное число, введенное с клавиатуры, если оно содержит в своей записи хотя бы одну единицу, и возвести в квадрат в другом случае. Если введенное число не трехзначное, вывести сообщение об ошибке.

Question

Информатика

Павлуся

21 августа, 12:28

Удвоить трехзначное число, введенное с клавиатуры, если оно содержит в своей записи хотя бы одну единицу, и возвести в квадрат в другом случае. Если введенное число не трехзначное, вывести сообщение об ошибке.

+4

Ответы (1)

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

Исаак · Answer 1

S:string;

i, k, a:integer;

begin

readln (s) ;

if length (s) = 3 then begin

for i:=1 to length (s) do

if s[i]='1' then begin

val (s, a) ;

a:=a*2; end

else begin

val (s, a) ;

a:=a*a; end; end

else writeln ('ошибка') ;

writeln (a) ;

readln;

end.