Разобраться с по информатике: укажите наибольшее трехзначное натуральное число, при вводе которого эта программа напечатает сначала 2, потом - 6 var x,a,b: longint; begin readln(x) a : =0; b: =1; while x> 0 do begin if x mod 2 > 0 then a: =a+1 else b: =b+(x mod 5); x: =x div 5; end; writeln(a); write(b); end. понимаю, что в пятиричной записи исходного числа подсчитываются четные цифры - их 2, а также сумма нечетных остатков при делении на 5 равна 5 (так как 6-1). в пятиричной записи исходного числа должны участвовать цифры 3 и 1. но сколько разрядов в пятиричной записи, какие там четные цифры и как они расставлены, я не могу понять.
282
470
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1640 от 17.03.2018 внимание! если программа не работает, обновите версию! begin // 1 var (x,y): =readreal2('введите x и y: '); writeln((x> 0) and (y> 0)); // 2 var a,c,d: longint; write('введите число, его квадрат и куб: '); read(a,c,d); writeln((a*a=c) and (a*a*a=d)) end. пример введите x и y: 3.5 1.8 true введите число, его квадрат и куб: 15 225 1225 false
Популярно: Информатика
-
эхпечальнокакто26.04.2023 00:36
-
ЛераЛи12314.03.2023 01:35
-
kirmanova7914.04.2021 04:31
-
Топор22821.05.2023 08:49
-
IUcenhik24.07.2022 20:53
-
VladOZmsl23.08.2022 07:52
-
borisenkkov10.09.2020 17:35
-
Shaxrior29.01.2022 04:59
-
Yalcun26.12.2022 12:08
-
Sem500010.10.2020 06:54