Предмет: Информатика,
автор: Cantara99
напишите программу которая генерирует 15 случайных чисел в диапозоне -50 и 50 и
выводит на экран числа оканчивающиеся на 1
Ответы
Автор ответа:
0
Program gfh;
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.
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.
Интересные вопросы
Предмет: Математика,
автор: yemelyanovsema777
Предмет: Математика,
автор: melantorlopov
Предмет: География,
автор: alex78sacha
Предмет: Алгебра,
автор: SanekManek
Предмет: Математика,
автор: Kostya802