Есть ответ 👍

3. Кестені қажетті ақпараттармен толтырыңдар (1.3-кесте). 1.3-кесте
Адам
КОМПЬЮТЕР
Кызметі
Ақпаратты сақтау
Ақпаратты өңдеу
Ақпаратты қабылдау
Енгізу құрылғысы
Ақпаратты жіберу
Сөз, қозғалтқыш
жүйелері​

281
323
Посмотреть ответы 1

Ответы на вопрос:


program p1; var: menee_dvadcati,n,i,x: integer; begin

x: =0; //обнуляем x readln(n); //считываем n for i: =1 to n do begin readln(x); //ввод числа if x< 20 then//проверка (больше 20? ) menee_dvadcati: =menee_dvadcati+1; //считаем количество end; if menee_dvadcati> 5 then   //проверка (больше 5? ) writeln('да') else writeln('нет'); end.

Популярно: Информатика