63

Напишите программу которая генерирует 15 случайных чисел в диапозоне -50 и 50…

05 апреля 2023

Напишите программу которая генерирует 15 случайных чисел в диапозоне -50 и 50 ивыводит на экран числа оканчивающиеся на 1

категория: информатика



46

Program gfh; uses crt; var a, b: integer; Beginclrscr; a: =random (50+50+1) -50; If (a<-9) and (a>9) then b: =a mod 10; If (b=1) then writeln (b); If (a=1) then writeln (a); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...