1. Информатика
  2. 14. составить алгоритм и написать

14. составить алгоритм и написать решение на паскале: сгенерировано целое число от 50 до 70. найти его квадрат, если оно кратно 2 и куб, если оно кратно 3.

Bredovik Bredovik    1   18.08.2019 05:00    0

Ответы
DiModDi DiModDi  05.10.2020 02:14
Program n1;
var: a: integer;
begin
randomize;
a:=random(70-50+1)+50;
if(a mod 2=0) then do a:=a*a;
if(a mod 3=0) then do a:=a*a*a;
writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
failbulkhin2017 failbulkhin2017  26.01.2021 14:29
1. В чем разница между числами 100 и 100.0 ? 2. В каких режимах работает интерпретатор Python? 3. Какая функция показывает тип переменной Python? 4. Какие ошибки допущены в следующей...
sadpoli sadpoli  26.01.2021 14:31
Как обрабатывать видео?Что такое видео эффекты? Как сохранить видео?​...
ольга240387 ольга240387  26.01.2021 14:31
Даны числа: 9; 20; 322; 4041; 10386. Используя MS Excel, вычисли среднее арифметическое данных чисел....
katyakiseleva3 katyakiseleva3  25.12.2021 04:24
Постройте на координатной плоскости рисунок отметив и последовательно соединив точки с (1-19) 1...
muzaka muzaka  06.08.2019 19:50
Спо информатике через pascal: 1. с клавиатуры вводятся целые числа, признак окончания ввода - четное число, вычислить количество двузначных, сумму - последняя цифра больше 5....
арина1492 арина1492  06.08.2019 19:50
Вгруппе 30 чел. за контрольную по . получено 2 пятёрки, 13 четверок, 14 троек, и 1 двойка. какое кол-во информации в сообщении о том, что иван получил четверку...
Ellis2034 Ellis2034  06.08.2019 19:50
1)выполните сложение и вычитание над двоичными числами 11101001 и 10011101 2) выполните сложение : 306(в восьмой) + 70f = ? ( в шестнадцатой) заранее !...
cifirka5 cifirka5  06.08.2019 19:50
1)переведите число 154(в восьмой) по схеме n8-n2-n16 2)переведите число 1d5(в шестнадцатой) по схеме n16-n2-n8 заранее...
elizavetanosova2000 elizavetanosova2000  04.09.2019 03:10
Рассчитайте объём памяти необходимой для кодирования рисунка построенного при графическом разрешении монитора 800x600 с палитрой 32 цвета...
милена8963977 милена8963977  14.06.2019 21:50
Золушке разобрать фасоль: заполни схему, нарисуй стрелку, впиши да и нет. (используй рисунок: золушка возле мешка с фасолью и корзинками, в одной черная фасоль в другой белая...

Популярные вопросы