1. 

   tazzyanka New Member

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

    

   tazzyanka, 3 янв 2010

   #1
2. 

   spais New Member

   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.

    

   spais, 3 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня