Даны три целых числа найти количество положительных

If1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

Решение задачи, на языке: Паскаль, C

If2. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

Решение задачи, на языке: Паскаль, C

If3. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

Решение задачи, на языке: Паскаль, C

If4. Даны три целых числа. Найти количество положительных чисел в исходном наборе.

Решение задачи, на языке: Паскаль, C, С++

If5. Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.

Решение задачи, на языке: Паскаль, C, Кумир

If6. Даны два числа. Вывести большее из них.

Решение задачи, на языке: Паскаль, C

If7. Даны два числа. Вывести порядковый номер меньшего из них.

Решение задачи, на языке: Паскаль, C

If8. Даны два числа. Вывести вначале большее, а затем меньшее из них.

Решение задачи, на языке: Паскаль, C

If9. Даны две переменные вещественного типа: $$A$$, $$B$$. Перераспределить значения данных переменных так, чтобы в $$A$$ оказалось меньшее из значений, а в $$B$$ — большее. Вывести новые значения переменных $$A$$ и $$B$$.

Решение задачи, на языке: Паскаль, C, Кумир

If10. Даны две переменные целого типа: $$A$$ и $$B$$. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных $$A$$ и $$B$$.

If11. Даны две переменные целого типа: $$A$$ и $$B$$. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных $$A$$ и $$B$$.

Решение задачи, на языке: Паскаль, C

If12. Даны три числа. Найти наименьшее из них.

Читайте также:  Как подключить гитарный процессор к комбику

Решение задачи, на языке: Паскаль, C, Кумир

If13. Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).

Решение задачи, на языке: Паскаль, C

If14. Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

If15. Даны три числа. Найти сумму двух наибольших из них.

Решение задачи, на языке: Паскаль, C, Кумир

If16. Даны три переменные вещественного типа: $$A$$, $$B$$, $$C$$. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных $$A$$, $$B$$, $$C$$.

Решение задачи, на языке: Паскаль, C, Кумир

If17. Даны три переменные вещественного типа: $$A$$, $$B$$, $$C$$. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных $$A$$, $$B$$, $$C$$.

Решение задачи, на языке: Паскаль, C

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

Решение задачи, на языке: Паскаль, C, Кумир

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

Решение задачи, на языке: Паскаль, C, С++

If20. На числовой оси расположены три точки: $$A$$, $$B$$, $$C$$. Определить, какая из двух последних точек ($$B$$ или $$C$$) расположена ближе к $$A$$, и вывести эту точку и ее расстояние от точки $$A$$.

Решение задачи, на языке: Паскаль, C

If21. Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси $$OX$$ или $$OY$$, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, то вывести 3.

Решение задачи, на языке: Паскаль, C

If22. Даны координаты точки, не лежащей на координатных осях $$OX$$ и $$OY$$. Определить номер координатной четверти, в которой находится данная точка.

Читайте также:  Аналоги adobe after effects

Решение задачи, на языке: Паскаль, C, Кумир

If23. Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины.

Решение задачи, на языке: Паскаль, C, Кумир

If24. Для данного вещественного x найти значение следующей функции $$f$$, принимающей вещественные значения:
$$f(x) =egin2*sin(x), ext < if >x > 0,\6 — x, ext < if >x leq 0.end$$

If25. Для данного целого x найти значение следующей функции $$f$$, принимающей значения целого типа:
$$f(x) =egin 2*x, ext < if >x 2,\-3*x, ext< else >end$$

Решение задачи, на языке: Паскаль, C, Кумир

If26. Для данного вещественного x найти значение следующей функции $$f$$, принимающей вещественные значения:
$$f(x) =egin -x, ext < if >xleq 0,\x^2, ext < if >0

Ответ

Проверено экспертом

Если не разделять понятия неотрицательных и положительных, то этот код:
Var
A,B,C,P,O:integer;
Begin
P:=0;
O:=0;
WriteLn(‘Введи три числа’);
ReadLn(A,B,C);
if A>=0 then P:=P+1
else O:=O+1;
if B>=0 then P:=P+1
else O:=O+1;
if C>=0 then P:=P+1
else O:=O+1;
WriteLn(‘Положительных чисел ‘,P);
WriteLn(‘Отрицательных чисел ‘,O)
End.

Если разделять, то этот:
Var A,B,C,P,O,N:integer;
Begin
P:=0;
O:=0;
N:=0;
WriteLn(‘Введи три числа’);
ReadLn(A,B,C);
if A=0 then N:=N+1
else
if A>0 then P:=P+1
else O:=O+1;

if B=0 then N:=N+1
else
if B>0 then P:=P+1
else O:=O+1;

if C=0 then N:=N+1
else
if C>0 then P:=P+1
else O:=O+1;
WriteLn(‘Положительных чисел ‘,P);
WriteLn(‘Отрицательных чисел ‘,O);
WriteLn(‘Нулей ‘,N)
End.

Всем привет! Сегодня мы начнем долгожданный разбор задач по программированию if1-15, а также вспомним и научимся применять различные процедуры. В решениях к некоторым задачам Вам встретится возможно неизвестная прежде процедура Inc. Пояснения к ней и к другим процедурам можно найти в этой статье .

If1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

If2. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

If3. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

If4°. Даны три целых числа. Найти количество положительных чисел в исходном наборе.

If5. Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.

If6°. Даны два числа. Вывести большее из них.

If7. Даны два числа. Вывести порядковый номер меньшего из них.

If8°. Даны два числа. Вывести вначале большее, а затем меньшее из них.

If9. Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.

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

If11. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

If12°. Даны три числа. Найти наименьшее из них.

If13. Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).

Небольшое пояснение

Читайте также:  Сортировочный центр подольск почта россии 140960

If14. Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

Пояснение

If15. Даны три числа. Найти сумму двух наибольших из них.

Фух! На сегодня все! Если у вас возникли какие-либо вопросы не стесняйтесь, оставляйте все свои вопросы в комментариях под статьей! И не забывайте кликать по кнопочкам и рассказывать о нас своим друзьям.

Оцените статью
Добавить комментарий

Adblock detector