tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу возведения
Составьте программу возведения в квадрат и в куб ,, .
настя200336
2 07.09.2019 08:40
0
Ответы
mn197
06.10.2020 22:45
PascalABC.NET 3.3, сборка 1547 от 07.10.2017
Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('Введите число:');
Writeln('Его квадрат ',x*x,', куб ',x*x*x)
end.
Пример
Введите число: -35.432
Его квадрат 1255.426624, куб -44482.276141568
ПОКАЗАТЬ ОТВЕТЫ
Ahau
06.10.2020 22:45
Var
x : real;
begin
write('Введите число х: ');
readln(x);
writeln(x, 'в квадрате равно', power(x, 2));
writeln(x, 'в кубе равно', power(x, 3))
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Никитка987
28.11.2021 22:03
РЕКЛАМНИЙ РОЛИК НА ТЕМУ ИЗУЧЕНИЕ ИНФОРМАТИКИ НА УКРАИНСКОМ...
Lerochka1998
28.11.2021 22:06
Спростіть дану задачу, якщо це можливо, якщо ні напишіть чому це неможливо...
Ira511
12.07.2019 14:10
Напишите программу на языке паскаль для решения следующей : для любого трехзначного вводимого числа найти сумму первой и последней цифры. (подсказка. используйти тип данных...
raistarasenko
12.07.2019 14:00
Что делать когда ты скачиваешь презентацию,заходишь в загрузки открываешь эту презентацию,а она выходит в интернет.что делать подскажите? этот вопрос по информатике....
DOGY228
12.07.2019 14:00
Дана программа на языке паскаль. заполни пропуски. вывод на экран квадратов чисел от 1 до 43. var : integer; begin for i: =1 to do writeln(sqr( ); readln; end....
anastasiabobilevich
12.02.2021 16:01
Подскажите, забываке Какой шрифт должен быть у презентации?...
zeus333
12.02.2021 16:07
Пояснения к написанному коду программы, находящиеся непосредственно внутри кода * Записка Конкатенация Комментарии Команды...
sonek987
12.02.2021 16:08
Что выведет программа? ответ записан без пробелов. for i in range(4,7): print(i)...
Kepka229
17.05.2019 18:20
Паскаль абс! ! создать программу, массив на н элементов, заполняемых с клавиатуры, выводит на печать и находит количество четных элементов....
Дашуля110506
06.03.2019 17:20
1. лазерная сигнализация 1 в процессе модернизации технического обеспечения и применения новых информационных технологий для защиты от воров вокруг банка поставили лазерную...
Популярные вопросы
1.По какой причине дети оставили дом отца? 2.Счастливы ли они вдали...
1
О чём говорит маленькие гостинец матери сыну? На мельнице ...
1
Аналіз хайку М.Басьо.Квітучі сливи,ніжні верби...І подібні до них молоді...
1
Написати твір-роздум Який зміст я вкладаю в поняття Людина...
3
Сочинение про польского философа Ясос Биба...
3
Важность религии в жизни человека можно определить как три функции:...
3
Сколько кубиков используется для строительства? 1) 1522) 1603) 2084)...
1
3. Мастерская юного читателяНайди в тексте произведения и выпиши устаревшие...
2
. Прогрессивные особенности организации типа моллюсков по сравнению...
1
AC = 600, ВС = 800. Найдите длину пер-пендикуляра х....
3
Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('Введите число:');
Writeln('Его квадрат ',x*x,', куб ',x*x*x)
end.
Пример
Введите число: -35.432
Его квадрат 1255.426624, куб -44482.276141568
x : real;
begin
write('Введите число х: ');
readln(x);
writeln(x, 'в квадрате равно', power(x, 2));
writeln(x, 'в кубе равно', power(x, 3))
end.