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

@Ляй · Регистрация: 10.11.2010

Author24 — интернет-сервис помощи студентам

@Dekio · 25.11.2010, 21:00

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program n1;
var
a,b,c,k :integer;
begin
k:=0;
readln(a,b,c);
if a>0 then
inc(k);
if b>0 then 
inc(k);
if c>0 then
inc(k);
writeln(k);
end.

@ChameleoN · 25.11.2010, 21:00

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
i, a,b,c : integer;
begin
clrscr;
readln(a,b,c);
if a>0 then i := inc(i);
if b>0 then i := inc(i);
 if c>0  then i := inc(i);
writeln(i);
readln;
end.

@Dekio · 25.11.2010, 21:02

количество положительных чисел.

Pascal
1
2
3
if a>0 then writeln(a);
if b>0 then writeln(b);
if c>0 then writeln(c);

ChameleoN научись читать условие задачи

@ChameleoN · 25.11.2010, 21:03

я исправил уже

@LiJaN · 25.11.2010, 21:05

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a,b,c,x:integer;
begin
readln(a);
if a>0 then 
inc(x);
readln(b);
if b>0 then 
inc(x);
readln(c);
if c>0 then 
inc(x);
writeln(x);
end.

@Dekio · 25.11.2010, 21:07

опять 25...
подсчитывает среди заданных трех чисел количество положительных чисел

LiJaN, тоже читать научись! крайне советую

Pascal
1
2
3
4
5
6
if a>0 then x:=a;
readln(b);
if b>0 then y:=b;
readln(c);
if c>0 then z:=c;
writeln(x,y,z);

@ChameleoN · 25.11.2010, 21:14

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
i, a,b,c : integer;
begin
clrscr;
readln(a,b,c);
if a>0 then i := inc(i);
if b>0 then i := inc(i);
 if c>0  then i := inc(i);
writeln(i);
readln;
end.

ЭТО программа, подсчитывающая КОЛИЧЕСТВО ПОЛОЖИТЕЛЬНЫХ чисел

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .	Микросервис на Python с FastAPI и Docker ArchitectMsa 23.04.2025 В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel Reangularity 23.04.2025 Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .	Максимальная производительность C#: Span<T> и Memory<T> stackOverflow 22.04.2025 Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .	JWT аутентификация в Java Javaican 21.04.2025 JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .	Спринты Agile: Планирование, выполнение, ревью и ретроспектива EggHead 21.04.2025 Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .	Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .

@Ляй 0 / 0 / 0 Регистрация: 10.11.2010 Сообщений: 12

	Написать программу, которая подсчитывает среди заданных трех чисел количество положительных чисел. 25.11.2010, 20:58. Показов 7620. Ответов 7 Метки нет (Все метки) Написать программу, которая подсчитывает среди заданных трех чисел количество положительных чисел. 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	25.11.2010, 21:03
	я исправил уже 0

Опции темы