Вопрос по информатике:
Помогите с задачами 1)генератор случайных чисел выбирает случайное число от 0 до 100 если число четное то уменьшить его в 2 раза иначе возвести в квадрат 2)программа запрашивает число если оно четное и больше 15 и оканчивается на 6 то отобразить его квадрат {Sqr (x) } и слово "весна'' иначе {Sqrt (x)} квадратный корень и "осень ''
3) программа генерирует число от 100 до 999 если оно кратно 5 то вывести две первых цифры этого числа иначе две последних цифры
- 09.08.2018 22:42
- Информатика
- remove_red_eye 1150
- thumb_up 50
Ответы и объяснения 1
A:integer;
Begin
Randomize;
A:=random(101);
WriteLn('Исходное число: ',A);
if A mod 2 = 0 then WriteLn('Число чётное, ',A/2)
else WriteLn('Число нечётное, ',A*A);
End.
Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if (A>15)and(A mod 10 = 6) then WriteLn(A*A,', весна')
else WriteLn(Sqrt(A),', осень')
End.
Var
A:integer;
Begin
Randomize;
A:=random(900)+100;
WriteLn('Исходное число: ',A);
if A mod 5 = 0 then WriteLn('Оно кратно пяти, ',A div 10)
else WriteLn('Оно не кратно пяти, ',A mod 100);
End.
- 01.01.1970 00:00
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.