Регистрация
Artishokq
28.08.2020 20:19
Информатика
Есть ответ 👍

Составьте программу, которая находит произведение четных чисел и сумму нечетных чисел в диапазоне от 1 до 10. в pascalabc

256
441
Посмотреть ответы 3

Ответы на вопрос:

ника2545
ника2545
4,8(15 оценок)

program asd;

var chet,nechet,i: integer;

begin

for i: =1 to 10 do begin

      if (i div 2)=0 then chet: =chet*i;

      if (i div 2)=1 then nechet: =nechet+i

end;

writeln(chet,nechet);

end.

PuvMan
PuvMan
4,5(52 оценок)

uses crt;   var s,i: integer;   begin  clrscr;   i: =0;   s: =0;   while i< 10 do  begin  i: =i+2;   s: =s+i;   end;   writeln('summa chetnih ot 1 do 10 = ', s);   i: =1;   s: =1;   while i< 9 do  begin  i: =i+2;   s: =s*i;   end;   writeln('proizv nechetnih ot 1 do 10 = ', s);   readln;   end.

rasulid04
rasulid04
4,7(84 оценок)

var a:array[1..8, 1..8] of integer;

   max, i, j:integer;

begin

  randomize;

  max:=0;

  for i:=1 to 8 do

   for j:=1 to 8 do

   a[i,j]:=random(200);

   for i:=1 to 8 do

    for j:=1 to 8 do

    if i+j=9 then

      begin

     if a[i, j]>max then max:=a[i, j];

     end;

    for i:=1 to 8 do

     begin 

    for j:=1 to 8 do

     write(a[i, j]:5); 

    writeln; 

    end; 

    writeln('Максимальный элемент=', max);

  end.

Популярно: Информатика