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

выводит на экран числа оканчивающиеся на 1

Question

Информатика

Геннадьич

27 декабря, 19:17

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

выводит на экран числа оканчивающиеся на 1

+3

Ответы (1)

Знаете ответ на вопрос?

Минай · Answer 1

Program gfh;

uses crt;

var a, b:integer;

Begin

clrscr;

a:=random (50+50+1) - 50;

If (a9) then b:=a mod 10;

If (b=1) then writeln (b) ;

If (a=1) then writeln (a) ;

end.

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

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

выводит на экран числа оканчивающиеся на 1