1. информацию человек письменно кодирует используя: жесты, буквы, мимику, движения, позу(обведи нужное) - id344497720220304 от ALBERTALBERT2004 04.03.2022 09:29

Question

Информатика: 1. информацию человек письменно кодирует используя: жесты, буквы, мимику, движения, позу(обведи нужное) 2. отметь письмнные источники информации: письмо, телеграмма, радиопередача, книга, электронная книга 3. подчеркни лишнее слово: береста, папирус, пергамент, книга, бумага

ALBERTALBERT2004 · Accepted Answer

Program TablMul;

Const Size = 7;

Var
Ball: array[1..Size] of real;
Ocenka: array[1..Size] of integer;
Counter: integer;

Begin

Counter := 1;

while (Counter <= Size) do
begin
Write('Введите ', counter, ' ученика: ');
Readln(Ball[Counter]);
Counter := Counter + 1;
end;

Counter := 1;

Repeat
if (Ball[Counter] > 90) then
Ocenka[Counter] := 5

else if (Ball[Counter] >= 75) and (Ball[Counter] < 90) then
Ocenka[Counter] := 4

else if (Ball[Counter] >= 50) and (Ball[Counter] < 75) then
Ocenka[Counter] := 3

else
Ocenka[Counter] := 2;

Counter := Counter + 1;

Until (Counter > Size);

Writeln();

for var i := 1 to Size do
Writeln('Оценка ', i, ' ученика: ', Ocenka[i]);

End.
Усовершенствуйте программу тablmul таким образом, чтобы в результате выводилась оценка, поставленная

Усовершенствуйте программу тablmul таким образом, чтобы в результате выводилась оценка, поставленная

MOGZ ответил