Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/19: Рейтинг темы: голосов - 19, средняя оценка - 4.63
artem_kochetkow
1 / 1 / 0
Регистрация: 16.06.2010
Сообщений: 8
1

Вводится последовательность чисел. Признак конца ввода – число 777.

22.06.2010, 16:33. Просмотров 3416. Ответов 1
Метки нет (Все метки)

Вводится последовательность чисел. Признак конца ввода – число 777.
Записать алгоритм решения следующей задачи-Подсчета количества положительных, отрицательных и нулевых чисел.
решите пожалуйста-Заранее спасибо

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.06.2010, 16:33
Ответы с готовыми решениями:

Вводится последовательность натуральных чисел. Признак конца ввода – 0. определить является ли последовательность геометрической прогрессией
Помогите пожалуйста написать программу на языке Паскаль, без использования массива.

С клавиатуры вводится текст. Признак конца ввода - точка. Вывести все согласные, которых нет ни в одном слове
С клавиатуры вводится текст. Признак конца ввода — точка. Вывести все со- гласные, которых нет ни...

Дана непустая последовательность ненулевых целых чисел, за которой следует 0(0 - признак конца последовательности)
Дана непустая последовательность ненулевых целых чисел, за которой следует 0(0 - признак конца...

С клавиатуры вводится последовательность дробных чисел(окончание ввода-0) найти сумму всех чисел,количество отрицательных и количество положительных.
В общем,ребята. Помогите написать код,буду очень признателен. С клавиатуры вводится...

Составить программу поиска таких трёхзначных чисел на которые нужно умножить число 777 чтобы получить шестизначное число
В общем не доходит до меня тупого, безграмотного, парня, которого не берут в армию, как сделать эту...

1
Lyohich84
179 / 178 / 163
Регистрация: 30.04.2010
Сообщений: 260
22.06.2010, 17:45 2
Лучший ответ Сообщение было отмечено artem_kochetkow как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var
i,k,n,m:integer;
begin
clrscr;
k:=-1; n:=0; m:=0;
repeat
 readln(i);
 if i>0 then k:=k+1
  else if i<0 then n:=n+1
   else m:=m+1
until i=777;
Writeln('Polozhit=',k);
Writeln('otricat=',n);
Writeln('Nulevih=',m);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.06.2010, 17:45

Ввести последовательность чисел, окончание ввода число 1000, определить количество отрицательных и минимум
2) Пользователь вводит последовательность чисел, окончание ввода число 1000, определить количество...

Из ввода дана непустая последовательность из “n” вещественных чисел (n задается из ввода), за которой следует 0. Определить количество чисел
13. Из ввода дана непустая последовательность из “n” вещественных чисел (n задается из ввода), за...

Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз последовательность меняет знак
Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru