напишите программу которая генерирует 15 случайных чисел в диапозоне -50 и 50 и
выводит на экран числа оканчивающиеся на 1
выводит на экран числа оканчивающиеся на 1
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
uses crt;
var a, b:integer;
Begin
clrscr;
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.