Задание:
Удвоить трѐхзначное число, введенное с клавиатуры, если оно содержит в своей записи хотя бы одну единицу, и возвести в квадрат в другом случае. Есливведѐнное число не трѐхзначное, вывести сообщение об ошибке.
Решение:
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.
Знаете другой ответ?