1)составьте программу для вычисления y=x, если x положительное число . 2)составьте программу для вычисления объема куба со сторонами от 5 до 20
Воробушка32
1
24.08.2019 05:10
1
Другие вопросы по теме Информатика
PROmax100
08.05.2021 22:34
Merto
08.05.2021 22:30
alexandra67346783
08.05.2021 22:20
kirill163aye
05.04.2020 07:19
cariandreevac
05.04.2020 07:21
vano1399
05.04.2020 07:20
Макси00084322233
28.02.2020 21:29
elbrosso
10.12.2020 15:33
shrnv
10.12.2020 15:32
Sindex212
10.12.2020 15:32
Популярные вопросы
- Даны три числа.первое число равно 40% от суммы этих чисел.второе число равно 90%...
3 - Основы трапеции относятся как 5: 6, а их разница равна 6 см. найдите среднюю линию...
1 - Найди частное чисел 36 и 9 друзья друзья...
3 - Решите уравнение. (1целая3/4x+1целая1/2)=10,9...
1 - Что сделал петр первый во время северной войнв...
1 - Какие структуры человека организма формируется из мезодермы...
1 - Небольшое сочинение на тему мои одноклассники...
1 - Дано 0,5 моль серы, вычислите массу серы...
1 - Определение а)дальний (внутренний) туризм б)международный(выездной) туризм (по обж)...
1 - Предмет массой 50кг поднимают вертикально вверх на высоту 24м определитель работу....
2
X:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Write('Y = ',X)
End.
Var
a:integer;
Begin
For a:= 5 to 20 do
WriteLn('V(',a,') = ',a*a*a)
End.