tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано целое число, если оно
Дано целое число, если оно положительное, то возвести его в квадрате, иначе возвести в третью степень. напишите программу )
mamutova0303
2 14.06.2019 14:30
0
Ответы
fainanem
12.07.2020 07:14
На паскале
var a: integer;
begin
write('Введите целое число'); Readln(a);
if a>=0 then write(a*a) else write(a*a*a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
fifa48
11.12.2020 08:44
3. Племя Мульти пишет письма, пользуясь 32-символьным алфавитом. Племя Пульти пользуется 64-символьным алфавитом. Вожди племен обменялись письмами. Письмо племени...
ssha2
11.12.2020 08:44
Запишите в тетради функции кнопок, показанных в панеле ,,Инструменты,,...
НикаНетУбежал
11.12.2020 08:44
Установи соответствие между ошибками при использовании формул в excel...
728470
11.12.2020 08:43
Информатика Сор 6 класс 2 четверт...
Скримлучший
11.12.2020 08:42
Документ размером 8 Мбайт можно передать с одного компьютера на другой двумя вариантами: А. Сжать архиватором, передать архив по каналу связи, распаковать. Б. Передать...
srochno6
13.05.2020 10:02
Стандартная постановка задачи...
daryaromanchuk
13.05.2020 10:03
Напишите функцию которая переводит из нижнего в верхний регистр ( Паскаль)...
дашуля296
13.05.2020 10:03
Прикладное программное обеспечение предназначено для а) согласованной работы всех устройств компьютера б) тестирования устройств компьютера в) решения задач в какой-либо...
valkiriyali
13.05.2020 10:04
Адам жасын сұратын программа құрыңыз, егер жасы толық 18 және 18-ден жоғары болса, «Керемет! Сіз көлік айдай аласыз», ал керісінше жағдайда – «Өкінішке орай Сізге...
Aloyna111
13.05.2020 10:04
4.(1) Исправьте программный код, команды ветвления IF EDIT1.TEXT:=(‘A B’) THEN A B 5.(2) Приведите два обоснования рационального использования оператора ЭТО СОР МНЕ...
Популярные вопросы
Выписать из диалога 3 предложения в Continuous и 1 в Simple (подчеркнуть...
3
Необхідно поставити кому між частинами безсполучникового складного...
2
7. Complete the sentences with the following words. Put an article...
3
Как ни был печален тема но и он не мог удержаться и фыркал слушая...
2
нужно зробить одне завдання...
2
Перестройте предложения так, чтобы подлежащие стали обращениями....
2
Порівняйте драматичний етюд Олександра Олеся «По дорозі в Казку»...
1
Назвіть органели, які мають власні рибосоми...
2
Ребят Информатика 6 класс...
2
Трёхчлен z2−8z+16 можно представить в виде произведения двух множителей...
3
var a: integer;
begin
write('Введите целое число'); Readln(a);
if a>=0 then write(a*a) else write(a*a*a);
end.