btatarintsev
?>

13. задать массив генератором случайных чисел в диапазоне (-35, 35]. найти суммуэлементов массива, стоящих на четных местах, и вывести на экран все элементымассива, кратные 5. решить в паскале ​

Информатика

Ответы

vkorz594

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -35, 35);

 a.Println;

 var s := 0;

 for var i := 0 to a.High do

 begin

   if i.IsOdd then

     s += a[i];

   if a[i] mod 5 = 0 then

     Print(a[i])

 end;

 Writeln;

 Println('Сумма', s)

end.


13. задать массив генератором случайных чисел в диапазоне (-35,35]. найти суммуэлементов массива, ст
LYuBOV

var a,b,c,d:real;

   c1, c2, z1, z2:real;

begin

 write('Введи числитель первой дроби: '); read(a);

 write('Введи знаменатель первой дроби: '); read(b);

 write('Введи числитель второй дроби: '); read(c);

 write('Введи знаменатель второй дроби: '); read(d);

 write(a + ' / ' + b + ' + ' + c + ' / ' + d + ' = ');

 if(b = d) then begin

   c1 := a + c;

   write(c1 + ' / ' + b);

 End else Begin

   z1 := b * d;

   c1 := (z1 / b) * a;

   c2 := (z1 / d) * c;

   z2 := c1 + c2;

   write(z2 + ' / ' + z1);

 end;

end.

YuREVICh646

//длинная арифметика

begin

 var a := '123456789123456789';//ReadString();

 var b := '123456789123456789123';//...

 

 var l := Abs(a.Length - b.Length);

 var source := l*'0';

 

 if a.Length > b.Length then

     insert(source, b, 1)

 else

     insert(source, a, 1);

 

 var s := '';

 var mem := 0;

 

 for var i:=a.Length downto 1 do

 begin

   var c := a[i].ToDigit + b[i].ToDigit + mem;

   mem := c div 10;

   insert((c mod 10).ToString, s, 1)

 end;

 

 if (mem > 0) then insert('1', s, 1);

 

 s.Println;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

13. задать массив генератором случайных чисел в диапазоне (-35, 35]. найти суммуэлементов массива, стоящих на четных местах, и вывести на экран все элементымассива, кратные 5. решить в паскале ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

verynzik66525
whitecatrussia5398
uzunanna19922488
llipskaya
zoyalexa495
myglassi26
uttgroup
Ольга Сергей1822
Gennadevna_Baidalina131
mishapavlov9
Kondratev Ruzavina22
Татьяна1856
Жуков219
oleonov
Orestov563