tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны 2 действительных
Даны 2 действительных числа.возвести в квадрат те из них,значение которых неотрицательны.числа вводятся пользователям с клавиатуры.результат работы программы вводится на экран
1234567х91011111223
1 31.07.2019 13:10
3
Ответы
32519
28.09.2020 16:33
Var
a,d,f,g: integer;
begin
readln(a,d);
if a>0 then begin f:=sqr(a); writeln(f); end;
if d>0 then begin g:=sqr(d); writeln(g); end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Zaya191
23.06.2019 22:20
Дан масив из 12 целых чисел вывести исходный масив и получить новый элементы которого увеличены в 4 раза...
Kvodan123
14.03.2020 22:17
Что означает эти кнопки? ...
TheBrainCatty
14.03.2020 22:08
9. Что такое?1. Java Script -2. Колонтитул -3. Разметка страницы —4. CSS -5. Контент -...
Кеса1188
14.03.2020 22:07
9. Найти соответствие:1. document.write()2. document, writeln ()3. alert ()4. prompt ()5. confirm ()A. Выводит диалоговое окно с во Б. Выводит диалоговое окно с...
Pingvinenok01
14.03.2020 22:06
7. Перечислите возможности тега font ...
Dimatrubilov
18.12.2020 13:05
«Разбить» 6значное число на пары цифр (ab, cd, ef) и найти сумму этих комбинаций. Число вводится с клавиатуры....
тадашихамада1
18.12.2020 13:04
Что делает данная программа? (паскаль ) очень нужно...
zab1290
18.12.2020 13:04
4. Напишите рисования изображения в SketchUp:...
belovaan80p073pt
18.12.2020 13:04
информатика. буду очень благодарна I) Выполните перевод единиц измерения количества информации. 1) 0,25 Мбайт = Кбайт2) 10240 бит = Кбит3) 2³⁶ бит = ГбайтII) Впишите...
LeysAn11234
18.12.2020 13:04
Надо решить циклом с предусловием Дано вещественное число – стоимость 1 кг конфет. Вывести на экран стоимость 1, 2, …, 10 кг конфет. Например: если стоимость 1...
Популярные вопросы
Даны вещества: hno3, koh, khs, alcl3, nahso4, k3po4, fe2(so4)3....
2
Укажите падеж в местоимениях мы, он, я, ней и с ним....
1
Какие портреты героев поэмы руслан и людмила вам запомнились?...
3
Укажите падеж в местоимениях мы, он, я, ней и с ним....
1
Составить 3 повествовательных предложения...
1
Сочинение по картине а.а. пластова летом p.s, 5 класс....
3
Решите уравнение: 5x - 8/5 = 18/45...
2
Какая массовая доля элемента h2 si o3...
3
Средневековая деревня и её обитатели выписать термины...
2
1.решите уравнение : а)4х+7=3(х-1) б)3(х-1)+4(х+1)=6(х+2) в)3(х-1,1)+4(1,2х+2)=7,3х+0,7...
3
a,d,f,g: integer;
begin
readln(a,d);
if a>0 then begin f:=sqr(a); writeln(f); end;
if d>0 then begin g:=sqr(d); writeln(g); end;
end.