Помогите! Очень нужно) паскаль. Паскаль. 1) известны оценки по информатике каждого…

Question

53

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

dmitry_k · Accepted Answer

45

dmitry_k

24 августа 2022

Задача 1program z1; var a: array[1… 20]of byte; i,kol: b1yte; beginfor i: =1 to 20 doread (a[i]); for i: =1 to 20 doif a[i]=5 then kol: =kol+1; writeln ('otlichnikov=',kol); end. Задача 2program nacelo; var i: integer; begini: =200; while i mod 17<>0 dobegini: =i+1; end; writeln (i); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: