tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу печатающую
Составить программу печатающую значение true и false квадрат заданного трехзначного числа равен кубу суммы цифр этого числа
Dariapororor
1 29.08.2019 18:50
0
Ответы
moakoroleva
06.10.2020 03:28
Var A,B:integer;
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=(A div 100)+((A div 10) mod 10)+(A mod 10);
WriteLn(A*A=B*B*B)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Виктория6789045
08.08.2019 05:40
Какое минимальное количество бит потребуется для кодировки положительных чисел,меньших 47? ? a. 6 b. 8 c. 16 d. 32...
GloomyCat231
08.08.2019 05:40
Информативновность сообщения, принимаемого человеком, определяется передачи сообщения обработки принимаемого сообщения приёма сообщения, 4.временем приёма сообщения, 5. наличием...
MaksStilinski
08.08.2019 05:40
Водной из кодировка каждый символ кодируется 16 битами определите размер следующего предложения в данной кодировки : вознёсся выше он главою непокорной александрийского стола...
korolnn
18.04.2020 13:34
Запусти Паскаль и введи программу:vara,b,c:integer;begina:=−25;b:=abs(a);writeln( abs(−25)= ,b);c:=sqr(b);writeln( sqr(b)= ,c);c:=sqr(b+b);writeln( sqr(b+b)= ,c);end.При запуске...
kurbanbaevarseN
18.04.2020 13:33
Напишите итог скрипта: 1) ответ 2)...
dgostishev
18.04.2020 13:33
Батько цієї жінки написав художню поему про історію з життя майбутнього гетьмана України. Портрет цієї жінки сміливо можна повісити на факультеті комп’ютерної інженерії і програмування...
Elenamas11
18.04.2020 13:33
16. Определите значение переменой b после выполнения алгоритма:a := 3b := 18a := b - a * 3b := 4+a*417. Чему будет равно значение переменной Х после выполнения программы:Program...
mugivara9820p09uk7
29.10.2020 14:18
Информатика bilimland 29 .10...
tatulia32
08.09.2019 13:20
Построить линейный алгоритм по информатике уравнения y=(x+5)*(x-3)...
kintel1
08.09.2019 12:30
Составить пример схемы по формуле герона...
Популярные вопросы
Определите перемещение тела на которое действует сила 80Н если работа этой силы...
3
Карандаш находится на расстоянии 20 см от плоского зеркала, на каком расстоянии...
2
Какие почвы рас в вашей местности(Мариуполе) Плодородны ли они? Какая на них...
1
При температурі 0°С і тиску 1 атм повітря займає об єм 5 дм2(в квадрате). Яким...
2
Запомните правильное произношение данных числительных. Проговорить эти слова...
2
с Геометрией Второй раз уже пишу,так как многие спамят......
2
Перше варварське королівство створили ___ у ___. У 70-ті рр. 4 ст. зі степів...
2
Из числа 300 отняли две трети этого числа, какое число получилось...
1
А^4b - 6ab^3 Разложите на множители....
2
Приклади з життя, коли задіяна симпатична та парасимпатична система. Будь ласка...
1
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=(A div 100)+((A div 10) mod 10)+(A mod 10);
WriteLn(A*A=B*B*B)
End.