Статистика
Всего в нашей базе более 4 320 842 вопросов и 6 433 893 ответов!

Пусть задана последовательность чисел a, b, c, d. Составить программу вычисления количества K положительных чисел, содержащихся в

10-11 класс

этой последовательности. Печатать a, b, c, d, K.

Ogorodnichukva 10 окт. 2014 г., 13:20:39 (3 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Samalka2003
10 окт. 2014 г., 14:25:07 (3 года назад)

var
  a,b,c,d,K:integer;
begin
  write('Введите a,b,c,d: ');
  readln(a,b,c,d);
  K:=0;
  if a>0 then K:=K+1;
  if b>0 then K:=K+1;
  if c>0 then K:=K+1;
  if d>0 then K:=K+1;
  writeln(a,' ',b,' ',c,' ',d,' K=',K);
end.

Тестовое решение:

Введите a,b,c,d: -4 5 3 0
-4 5 3 0 K=2


Ответить

Читайте также

1. В последовательности чисел подсчитать произведение чисел, кратных 3.

2. В последовательности чисел сравнить, что больше сумма положительных или про-изведение отрицательных.
3. В последовательности чисел определить предпоследнее отрицательное число. (При решении введите дополнительную переменную для хранения предпоследнего отрицательного числа).

Последовательность чисел Фибоначчи образуется так: первый и второй члены последовательности равны единице, каждый следующий член равен сумме двух

предыдущих. (1,1,2,3,5,13...).Дано натуральное число n. n>=3. а)Найти k-й член этой последовательности; б)Для заданного n определить верно ли, что сумма первых n-членов последовательности есть четное число. Помогите, нужно составить программу для решения данных задач!

Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать

только элементы кратные 2

3)Найти сумму первых пяти элементов

Составить программу Дан массив целых чисел , размерность -12

1) Заполнение массива производить случайными числами из диапозона [-10;35]

2)Вывести на печать только положительные элементы

3)Найти количество отрицательных элементов

Составить программу

Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .

Пожалуйста,помогите решить задачи на Pascale!

1)Составить программу вычисления в двумерном массиве минимального элемента, его номера и замены его на 100
2)Записать в файл последовательность доступа n действительных чисел. Найти разность первого и последнего компонентов файла
3)Составить программу, удаляющую из предложения букву "Е"



Вы находитесь на странице вопроса "Пусть задана последовательность чисел a, b, c, d. Составить программу вычисления количества K положительных чисел, содержащихся в", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.