Здравствуйте! Помогите, пожалуйста, решить задачу по информатике в программе pascal…

Question

94

Здравствуйте! Помогите, пожалуйста, решить задачу по информатике в программе pascal ABC! Надо записать в файл 100 случайных чисел и посчитать сколькосреди них нулей! Пожалуйста!

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

ответить

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

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

ddtrus · Accepted Answer

61

ddtrus

22 августа 2022

var f: text; i, c: integer; count: byte; begin randomize; Assign (f, 'out.txt'); rewrite (f); count: =0; for i: =1 to 100 do begin c: =random (21); if c=0 then inc (count); write (f, c, '); end; close (f); writeln ('Количество элементов равных 0 равно ', count); end.

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

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

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

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