Регистрация
BOGDANPETRYEV
07.07.2020 03:45
Информатика
Есть ответ 👍

РЕШИТЕ СПОЧНО НАДО !!!

1. Определите значение переменной Y после выполнения следующего фрагмента программы:

x:=30;

case 3+x div 8 of

1, 2, 3 : y:=10;

4 . . 7: y:=20;

8 . . 30: y:=30;

else y:=100;

end;

ответ Y=

2. Определите значение переменной Y после выполнения следующего фрагмента программы:

x:=2*3;

case x of

2, 3 : y:=1;

4 : y:=2;

6-1, 1: y:=3;

7, 8 : y:=4;

1, 5+1: y:=5;

else y:=100;

end;

ответ: y=​

126
467
Посмотреть ответы 1

Ответы на вопрос:

adelgabdrahman
adelgabdrahman
4,6(22 оценок)

program l;

var

n: integer;

s: string;  

begin  

readln(n);  

while n> 0 do begin  

insert(chr(48+n mod 2),s,1);  

n: =n div 2;  

end;  

writeln(s);  

end.

Популярно: Информатика