Составить блок-схему алгоритма определения суммы положительных чисел…

Составить блок-схему алгоритма определения суммы положительных чисел из десяти.

в избранное

svetlaya

01 марта 2023

Program pr; uses crt; Var i,a,x: integer; Beginx: =0; for i: =1 to 10 doBeginreadln (a); if a>0 then x: =x+1; end; Writeln ('Кол-во положительных чисел=', x); readln; end.

пользователи выбрали этот ответ лучшим

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

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

Знаете другой ответ?

Задайте свой вопрос

Пропускная способность некоторого канала связи равна 128 000 быит/с

Студенты пед. Института организовали эстрадный квартет. Михаил играет на саксофоне

Определите значение целочисленных переменных x и y после выполнения фрагмента программы: х: =11; у: =5

Какая тут ошибка, посмотрите, пожалуйста program znacheniya uglov; uses crt; var x: integer; begin writeln

Создайте программу для вычисления суммы чисел от 1 до 20 я сделал но не уверен что правильно, посмотрите пожалуйста

Вычислить сумму 10 чисел введенных с клавиатуры (на паскале). Заранее спасибо

Составьте алгоритм возведения четного числа в квадрат, а нечетного-в куб

Текстовый документ, состоящий из 4069 символов, хранился в 16-битной кодировке Unicode

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

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

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