даны четыре числа , если они задыне в порядке возрастания (1,2,3,4) то каждое возвести в квадрат, иначе найти их полусумму
Disaczar:
на каком языке писать???
на английском
То есть, Вам на Коболе программу написать? Ил всё же Вам нужно что-то из этого: Pascal, Basic, КуМир
а может быть C++ или python
Pascal
Ответы
Ответ дал:
1
program ch;
var x1,x2,x3,x4,i:integer;
begin
writeln('введите 4 числа');
readln(x1,x2,x3,x4);
if (x1 < x2) and (x2 < x3) and (x3 < x4) then
begin
x1:=sqr(x1);
writeln('квадрат для x1 = ', x1);
x2:=sqr(x2);
writeln('квадрат для x2 = ', x2);
x3:=sqr(x3);
writeln('квадрат для x3 = ', x3);
x4:=sqr(x4);
writeln('квадрат для x4 = ', x4);
end
else write('полусумма = ',(x1+x2+x3+x4)/2);
end.
var x1,x2,x3,x4,i:integer;
begin
writeln('введите 4 числа');
readln(x1,x2,x3,x4);
if (x1 < x2) and (x2 < x3) and (x3 < x4) then
begin
x1:=sqr(x1);
writeln('квадрат для x1 = ', x1);
x2:=sqr(x2);
writeln('квадрат для x2 = ', x2);
x3:=sqr(x3);
writeln('квадрат для x3 = ', x3);
x4:=sqr(x4);
writeln('квадрат для x4 = ', x4);
end
else write('полусумма = ',(x1+x2+x3+x4)/2);
end.
можно было решать и циклом, но тогда нужен был бы массив
var
x1, x2, x3, x4: real;
begin
writeln('введите 4 числа ');
read(x1, x2, x3, x4);
if (x1 < x2) and (x2 < x3) and (x3 < x4) then
writeln('квадраты = ', sqr(x1), ' ', sqr(x2), ' ', sqr(x3), ' ', sqr(x4))
else writeln('полусумма = ', (x1 + x2 + x3 + x4) / 2);
end.
x1, x2, x3, x4: real;
begin
writeln('введите 4 числа ');
read(x1, x2, x3, x4);
if (x1 < x2) and (x2 < x3) and (x3 < x4) then
writeln('квадраты = ', sqr(x1), ' ', sqr(x2), ' ', sqr(x3), ' ', sqr(x4))
else writeln('полусумма = ', (x1 + x2 + x3 + x4) / 2);
end.
Вас заинтересует
5 месяцев назад
1 год назад
1 год назад
2 года назад
7 лет назад