tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу на pascal,
Написать программу на pascal, условие: даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны.
викся1231
1 28.07.2019 04:50
1
Ответы
zalehorosaj
25.09.2020 16:38
Var a,b,c: real;
Begin
Readln(a,b,c);
if (a>0) then a:=a*a;
if (b>0) then b:=b*b;
if (c>0) then c:=c*c;
Writeln(a,' ',b,' ',c);
Readln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Tomokl
24.05.2019 07:43
Какое значение будет иметь переменная z после выполнения операторов: z: 5; if x 0 then if y 0 then z: = z+1 else z: = z-2; при а) x=1; y=1; b) x=1; y=-1; c)x=-1;...
svyatoslavkorchagin
24.05.2019 08:50
Составить программу поиска в целочисленном массиве из 15 элементов двух рядом стоящих элементов, сумма которых больше 10, если таких элементов нет, вывести no ....
azarovanadejdaozzbir
24.05.2019 08:50
1. написать программу, которая выводит на экран сумму средних арифметических значений двух вещественных массивов из 10 элементов. 2. написать прогрумму,которая выводит...
timkoa
18.04.2019 16:15
Как могут самореализоваться в ит-сфере люди, увлекающиеся гуманитарными науками и творческой деятельностью?...
koshkanet69
18.04.2019 16:15
Снехваткой каких ресурсов сталкиваются современные ит- компании?...
Динка105
18.04.2019 16:12
Чем привлекательна и важна работа в ит-отрасли? !...
Ma4oMatoy
18.04.2019 16:10
Язык js почему получается ответ 72 var a=“8”+(0)+”8”; alert (a)...
shcooltime
18.04.2019 16:10
Сор по информатике 4 четверть 6 класс...
mercurry
30.07.2019 16:30
Дан фрагмент электронной таблицы. a b c d 1 3 4 2 5 2 =a1*3 =b1 – 1 =d1 – 2 какая из перечисленных ниже формул должна быть записана в ячейке a2, чтобы построенная...
UskovaV99
30.07.2019 16:30
Считая что каждый символ кодируется 16-б битами ,оцените информационный объем следующей пушкинской фразы в кодировке юникод: привычка свыше нам дана: замена счастию...
Популярные вопросы
Укажите в каком слове правописание суффикса определяется правилом...
1
Какие товары и куда везла русь,что и от-куда привозила?...
3
1. александр i царствовал в: 1) 1800-1812 гг. 2) 1804-1816 гг....
2
Iwas nervous during the flight because i before. a) didn`t fly...
3
Распределите слова на две группы в зависимости от значения корня....
1
Произведения моцарта за последние 10 лет жизни...
3
Биология,9 класс. укажите, к каким направлениям эволюции следует...
1
Найдите производные в течение нескольких недель учители не могли...
3
Вычислите давление морской воды на глубине 40м плотнлсть морской...
1
Врач сергеева пришла какое это предложение...
2
Begin
Readln(a,b,c);
if (a>0) then a:=a*a;
if (b>0) then b:=b*b;
if (c>0) then c:=c*c;
Writeln(a,' ',b,' ',c);
Readln(a);
end.