Удвоить трѐхзначное число, введенное с клавиатуры…

Question

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

Answer 1

82

markus

31 марта 2023

var q,k,i: integer; w: string; beginreadln (q); k: =0; if (q/100<1) or (q/100>9,99) then writeln ('Chislo ne 3ehznachnoe! ') else beginstr (q,w); for i: =1 to length (w) doif w[i]='1' then k: =1; if k=1 then writeln (q*2) else writeln (sqr (q); end; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: