Регистрация
Leshik1997
12.09.2021 03:44
Информатика
Есть ответ 👍

Напишите небольшое сочинение на тему "какой урок по информатике запомнился вам больше всего"

195
200
Посмотреть ответы 1

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

Быстрееее
Быстрееее
4,6(6 оценок)
1) программа будет запрашивать ввод новых чисел, пока он не введёт число 3: var i,count,n: integer; begin while i< > 3 do begin writeln('введите число'); readln(n); if n< 0 then inc(count); i: =n; end; writeln('кол-во: ',count); end. 2) программа будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут равны числу 3: var count,n: integer; begin while count< > 3 do begin writeln('введите число'); readln(n); if n< 0 then inc(count); end; writeln('кол-во: ',count); end.

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