Программа на языке паскаль
andreykotov6
1
17.05.2020 22:46
1
Другие вопросы по теме Информатика
nastyabulgakov1
30.09.2019 08:50
nkochneva1
30.09.2019 08:50
maksim93949262tue
30.09.2019 08:50
KALINACHKA
13.09.2020 01:55
mike961
13.09.2020 01:59
BlueSubaru666
15.08.2019 14:30
КостяТрестьян
15.08.2019 14:30
Aigerimajymatova
28.11.2021 18:43
dominocos
28.11.2021 18:40
Популярные вопросы
- Угол между и отраженным лучами равен 30 грудусов. каким будет угол отражения,...
3 - Сумма двух чисел равна 150. известно, что первое число составляет 25%...
3 - Морфологические признаки слов белый, белить и белизна...
3 - 1) чем различались постройки простых и богатых горожан? 2) где распологались...
3 - Для личинки лягушки характерны признаки...
3 - Выполнить действия: 1) a½ × a⅓ × a¼ 2) a⅔ × a¾ × √a × a 3) a : a½...
2 - Вычисли 40% от числа 4/7, которого равны 28....
3 - (8 1/15-(14 5/12- 9 2/5))×2 2/3+5 4/9: 2 1/ ....
1 - Автомашина была в пути три дня. в первый день она всего пути, а расстояние,...
2 - Слова - названия признаков определить в тексте я волшебной палочкой...
1
Var
x, y:integer;
Begin
Write('Введите значение x:') ;
Readln(x) ;
Begin
If x<0 then
Write('y=0') end;
Begin
If x=0 then
Write('y=3') end;
Begin
If x=1 then
Write('y=1') end;
Begin
If x=2 then
Write('y=3') end;
Begin
If x=3 then
Write('y=2') end;
Begin
If x=4 then
Write('y=2') end;
Begin
If x=5 then
Write('y=1') end;
Begin
If x=6 then
Write('y=1') end;
Begin
If x=7 then
Write('y=3') end;
Begin
If x=8 then
Write('y=3') end;
If x>8 then
Write('y=0') end.