Aleksandrovich-Yurevna1421
?>

до конца заполнить таблицу истинности ​

Информатика

Ответы

bikemaster

прикрепленная фотография

у тебя какая задача для X?

жду ответ в комментариях, туда же скину ответ


до конца заполнить таблицу истинности ​
paninsv
//Pascal ABC.NET v3.1 сборка 1172

//For

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 for i:=1 to 5 do
  begin
   readln(ar[i]);
   r:=r+ar[i];
  end;
 r:=r/i;
 writeln(r);
end.

//while

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 while i<>5 do
  begin
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
  end;
 r:=r/i;
 writeln(r);
end.

//repeat

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 repeat
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
 until i=5;
 r:=r/i;
 writeln(r);
end.
 

Пример ввода:
1
2
1
2
1
Пример вывода:
1.4
di-bobkov1985
//Pascal ABC.NET v3.1 сборка 1172

//For

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 for i:=1 to 5 do
  begin
   readln(ar[i]);
   r:=r+ar[i];
  end;
 r:=r/i;
 writeln(r);
end.

//while

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 while i<>5 do
  begin
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
  end;
 r:=r/i;
 writeln(r);
end.

//repeat

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 repeat
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
 until i=5;
 r:=r/i;
 writeln(r);
end.
 

Пример ввода:
1
2
1
2
1
Пример вывода:
1.4

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

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

до конца заполнить таблицу истинности ​
Ваше имя (никнейм)*
Email*
Комментарий*

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

M10M11M12
margarita25061961
Kharkina1328
marusyamr
mishapavlov9
Chistova-Dmitrii1162
tigran87-87
Gavrilova2527
pechinin
Guru-tailor
buleckovd8724
leeteukism
petrakovao
ирина Альбертовна
Nadezhdachizhikova7968