Составить программупо данной схемепаскаль
Тане44ка
1
12.03.2019 17:00
0
Другие вопросы по теме Информатика
Dexter8122
12.01.2021 06:38
ислам406
12.01.2021 06:41
cat0000000
12.01.2021 06:45
qwexxw
09.08.2019 01:50
arseniypiv150
21.10.2020 19:18
vehera087
21.10.2020 19:18
Mirano2004
21.10.2020 19:18
dimapavlov2007
28.04.2020 07:40
medweghonok
16.10.2020 07:39
Популярные вопросы
- 1. некоторые специалисты , что волга впадает не в каспийское море. а куда? обоснуйте...
2 - Нужно записать текст. підкреслити головні члени речення (підмети і присудки). острозька...
3 - Іть будбласка! з києва до лбвова виїхав легковий автомобіль зі швидкістю 82км/год....
2 - Тело из состояния покоя при равноускоренном движении с ускорением 1 м/с м. скорость...
3 - Іть складить речення з фразеологізмами узятися за розум...
2 - Расстояние между не и м 309 км. навстречу друг другу выехал 2 автомобиля, один ехал...
1 - Характеристика тихона в пьесе островского гроза коротко, , как можно ! !...
2 - Приготовить сообщения о любом композиторе белоруссии, ансамбле, певцах, танцах,...
1 - Прочитайте предложения: год провел среди полярников на зимовье. сыграть против чемпиона...
3 - 3m+1/3m^2*3m+9n/2+6m / - дробная черта....
1
var
A, x: integer;
begin
read(A);
if(A > 0) then
x := A + 8
else
x := A - 8;
write(x);
end.
Program n_1;
var A, x: real;
begin
read(A);
if (A>9) then x:=A+8 else x:=A-8;
writeln(x);
end.