Написать программу в pascal.задано число,если оно находится в диапазоне [0,10] то данное число возвести в квадрат, если нет, то вычислить квадратный корень из числа
Vinyl98
3
25.04.2019 17:45
0
Другие вопросы по теме Информатика
Берёза123
03.12.2020 13:58
veta991
03.12.2020 13:58
СуПерБро123
15.06.2019 03:10
лера21091
15.06.2019 03:10
invation
15.06.2019 03:10
яяя489
15.06.2019 03:10
Алина12292006
18.05.2021 20:30
ukimui123
18.05.2021 20:36
amir158
03.02.2021 07:04
Популярные вопросы
- Два математмчні маятника одночасно починають коливання.За той самий час перший...
2 - с заданием! Complete the sentences with correct forms of the following words...
1 - Напишите 5 рекламных слоганов к «Толковому словарю живого великорусского языка»...
3 - Упражнение 3. Составьте предложения из следующих слов. 1. school, Nick, goes,...
3 - Характер матери и сына, мать изменника ...
2 - Верно ли, что в СССР был самый продолжительный отпуск в мире?...
3 - Якого забарвлення набуде розчин лакмусу, який долили до розчину, що утворився...
1 - решить эту задачу,надо найти x,y. за спам-бан. заранее всем огромное...
2 - допоміжіть головне, щоб вона була правельна і бажано вирішена сьогодні. Розв...
1 - Определить расстояние в градусах и в километрах между: Москва – Северный Полюс...
1
Program zadacha;
var x:integer;
begin
readln(x);
if (x>=0) and (x<=10) then writeln(x*x)
else writeln(sqrt(x));
end.
Объяснение: