Напишите программу для решения задачки. С2.Даны целые числа a,b,с.Если аbc,то все
Напишите программу для решения задачки. С2.Даны целые числа a,b,с.Если аbc,то все числа поменяйте квадратами,если аgt;bgt;c,то каждое число поменяйте наибольшим из их,в неприятном случае смените символ каждого числа. С2.По номеру месяца выдайте квартал,которому он принадлежит.
Задать свой вопрос1 ответ
Агата
Var a,b,c:integer;
begin
readln(a,b,c);
if (alt;=b) and (blt;=c) then
begin
a:=a*a;
b:=b*b;
c:=c*c;
end
else if (agt;b) and (bgt;c) then
begin
if alt;b then a:=b;
if alt;c then a:=c;
b:=a; c:=a;
end
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1)
end;
writeln(a:4, b:4, c:4);
end.
begin
readln(a,b,c);
if (alt;=b) and (blt;=c) then
begin
a:=a*a;
b:=b*b;
c:=c*c;
end
else if (agt;b) and (bgt;c) then
begin
if alt;b then a:=b;
if alt;c then a:=c;
b:=a; c:=a;
end
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1)
end;
writeln(a:4, b:4, c:4);
end.
Игорь Сузюмов
var a,b,c:integer;beginreadln(a);if (a>=1)and (a<=3) then writeln('1 квартал');if (a>=4)and (a<=6) then writeln('2 квартал');if (a>=7)and (a<=9) then writeln('3 квартал');if (a>=10)and (a<=12) then writeln('4 квартал');end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов