F1 Дано целое число. Если оно является положительным, то прибавить к нему 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 Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).Небольшое пояснение
If14 Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.If15 Даны три числа. Найти сумму двух наибольших из них
Во-первых, CR-RW многоразовый для записи и перезаписи, CR-R одноразовый. (Даже если записать крохотный файл, который ничего не занимает, больше уже ничего нельзя записать на CD-R)
Также они различаются скоростью записи данных.
<em>P.s. Если Вы отметите любое ре</em><em>шение как "Лучшее решение", то к Вам вернётся 25% потраченных пунктов на это Задание.</em>
Диск
Камень
Кассета
Книжка
Дискета
Бумага
Флеш
Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.