Код программы ниже и во вложениях. var n: integer; // степень числа res: integer; // результат idx: integer; // индекс для цикла begin write('введите степень числа: '); readln(n); res : = 1; if n < 0 then begin writeln('степень должна быть неотрицательной.'); halt(-1); // завершение программы end else if n > = 30 then begin writeln('переполнение типа integer.'); halt(-2); end else if n > 0 then begin for idx : = 1 to n do res : = res * 2; end; writeln('результат возведения 2 в степень ', n, ': ', res, '.'); end.
irnik65
03.05.2022
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Передача информации происходит в результате информационного процесса. а - получение, б - обработка, в - хранение, г - защита