Предмет: Информатика, автор: fgsdfgsdfg

ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ:
Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.

Ответы

Автор ответа: Xeloras

0

program kek;var a, i: Integer;begin repeat i += 1; readln(a); until a = 0; writeln(i - 1);end.

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Русский язык, автор: superlada1977

СРОЧНО ПОМОГИТЕ С РУССКИМ
Объяснить значение каждого фразеологизма, используя не менее 2х предложений. Опишите ситуацию, в которой будет уместно употребление этого фразеологизма. Включите фразеологизм в одно из предложений.
1) задушевный разговор
2) валять дурака
3) сесть в лужу
4) последняя капля
5) висеть на телефоне.

6 лет назад

Предмет: Математика, автор: aruzanmusinova79

выпиши наречие помогите пжжжж зделаю лучший ответ

6 лет назад

Предмет: Информатика, автор: volkovanasta735

помогите пожайлуста.

6 лет назад

Предмет: Алгебра, автор: Михан2001и2002

. В спортивной секции занимается 26 детей. Каждая девочка имеет по 2 медали, а каждый мальчик - по 3 медали. Всего мальчики и девочки имеют 68 медалей. Сколько в секции занимается мальчиков? Выбрать уравнение которое соответствует условию задачи.
1 вариант: 2(х+26)=68-х
2 вариант :2х+3(26-х)=68
3 вариант: 68-2х=х+3
4 вариант: 2(26-х)+3х=68

10 лет назад

Предмет: Информатика, автор: Всеникиужесуществуют

Составить программу на языке программирования Pascal: Дан массив целых чисел. Вывести на экран массив, который получится после удаления всех отрицательных чисел.

10 лет назад