составить программу, которая вводит с клавиатуры три различных целых числа, каждое из которых по абсолютной величине не превышает 100 (каждое число с но
10-11 класс
|
вой строки), и если среди них есть неотрицательное число, то выводит это число или выводит сумму всех отрицательных введенных чисел в остальных случаях.
Program n1;
Uses CRT;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite chisla');
Readln(a,b,c);
If(a<0)and(b<0)and(c<0) then writeln('Summa = ',a+b+c)
else
if (a>0) then writeln('polozhitelnoe chislo ',a) else
if (b>0) then writeln('polozhitelnoe chislo ',b) else
if (c>0) then writeln('polozhitelnoe chislo ',c);
readln
end.
Другие вопросы из категории
каждой ).
если можно ответ развернутый
2)Переведите число из 10 системы в 2 -ю систему 8310
Читайте также
p.s. Чуваки, от этого зависит моя четвертная оценка
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
вверх), второе - номер горизонтали (при счете слева направо). Даны натуральные числа k, l, m,n, каждое из которых не превосходит восьми. Требуется:
1. выяснить, являются ли поля (k, l) и (m, n) полями одного цвета
2. на поле (k, l) расположен ферзь. Угрожает ли он полю (m, n)?
задача в Delphi.
программу, которая вводит
с клавиатуры три
целых числа: a, b, c (каждое
число с новой
строки) и выводит
на экран максимальное
из них. Ничего
кроме этого числа,
программа выводить не
должна.