Question

Помогите!!!!очень нужно))паскаль. паскаль. 1)известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку пять?Условный оператор не использовать. 2)Составить программу, которая находит минимальное число большее 200, которое нацело делится на 17. Использовать цикл с предусловием While.всю программу напишите, пожалуйста)))

Answer 1

program class;
var a:array[1..20]of integer;
i,sum:integer;
begin
for i:=1 to 20 do
read(a[i]);
for i:=1 to 20 do
//так как нельзя юзать IF, сделаем так

sum:=sum+a[i] div 5; // Если 5, то +1, если меньше +0;
writeln('otlichnikov',sum);
end.

Answer 2

1) Для решения этой задачи можно использовать цикл счетчик. Начнем с того, что создадим переменную, которая будет считать количество учеников с оценкой пять. Затем пройдем по списку оценок и будем увеличивать значение этой переменной каждый раз, когда встретим оценку пять.

Пример кода на Pascal: ``` program CountFives; var i, fivesCount: integer; grades: array[1..20] of integer; begin fivesCount := 0; for i := 1 to 20 do begin readln(grades[i]); if grades[i] = 5 then fivesCount := fivesCount + 1; end; writeln('Количество учеников с оценкой "пять": ', fivesCount); end. ```

2) Для нахождения минимального числа, которое больше 200 и делится на 17, можно использовать цикл с предусловием While. Начнем с того, что создадим переменную, которая будет хранить текущее число. Затем будем увеличивать это число на 1 в каждой итерации цикла, пока не найдем число, которое удовлетворяет условию.

Пример кода на Pascal: ``` program MinNumberDivisibleBy17; var number: integer; begin number := 201; while (number mod 17 <> 0) do begin number := number + 1; end; writeln('Минимальное число больше 200, которое делится на 17: ', number); end. ```

Надеюсь, это поможет вам решить задачи!