evrotrastop64
?>

Напишите программы в abc pascal: 1) определите делителем какого числа a, b, c является число k; 2.) подсчитайте количество отрицательных чисел среди a, b, c.

Информатика

Ответы

Андрееевич787
Вот решение ваших задач
Напишите программы в abc pascal: 1) определите делителем какого числа a,b,c является число k; 2.) по
Напишите программы в abc pascal: 1) определите делителем какого числа a,b,c является число k; 2.) по
Alekseevich1012
1)
var a: array [1..10] of integer;
    i, m: integer;
begin
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then m := m + a[i];
     end;
     writeln(m);
end.

2)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 1) then m := m * a[i];
     end;
     writeln(m);
end.

3)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          m := m + a[i];
     end;
     writeln(m / 10);
end.

4)
var a: array [1..10] of integer;
    i, m, c: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then
          begin
               m := m + a[i];
               c := c + 1;
          end;
     end;
     if (c > 0) then writeln(m / c);
end.

Вас =)
KononovaMaiorov453
1)
var a: array [1..10] of integer;
    i, m: integer;
begin
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then m := m + a[i];
     end;
     writeln(m);
end.

2)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 1) then m := m * a[i];
     end;
     writeln(m);
end.

3)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          m := m + a[i];
     end;
     writeln(m / 10);
end.

4)
var a: array [1..10] of integer;
    i, m, c: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then
          begin
               m := m + a[i];
               c := c + 1;
          end;
     end;
     if (c > 0) then writeln(m / c);
end.

Вас =)

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

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

Напишите программы в abc pascal: 1) определите делителем какого числа a, b, c является число k; 2.) подсчитайте количество отрицательных чисел среди a, b, c.
Ваше имя (никнейм)*
Email*
Комментарий*

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

Evsevia-a
N-odes-art-school410
igor51766771
andrewshilin1334
betepah
mrubleva42
Sergeevich-Novikov
ВладимировнаИП37
Shikhova-Vitalii1290
merzlikinairena
gulsinatahckeeva
Ioanova Korneeva1093
vorobyeva6428
m-zolotukhina2
pimenov5