Даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны, и в четвёртую степень – отрицательные. нужно написать для basic!
вроде так затестируй на паскале у меня нет но суть такова вроде должна работать
mlf26
26.05.2022
Заметим, что числа образуют арифметическую прогрессию, а её сумма известна: поэтому два варианта программы: один вычисляет сумму накоплением, второй сразу определяет результат по формуле. хороший пример того, что программист должен знать . var n, i, s: integer; begin write('введите натуральное число: '); readln(n); if (n mod 2) = 0 then begin s : = 0; for i : = 1 to n do s : = s + i; writeln('сумма чисел от 1 до ', n, ' равна ', s) end else writeln('введено нечетное число') end. тестовое решение: введите натуральное число: 8 сумма чисел от 1 до 8 равна 36 var n, s: integer; begin write('введите натуральное число: '); readln(n); if (n mod 2) = 0 then writeln('сумма чисел от 1 до ', n, ' равна ', ((1 + n) * n) div 2) else writeln('введено нечетное число') end. тестовое решение: введите натуральное число: 8 сумма чисел от 1 до 8 равна 36
annatarabaeva863
26.05.2022
Во втором прямоугольнике нужно написать "подойди к платью" и обвести эту рамку зеленым карандашом. нужно нарисовать стрелки вниз. от треугольника в котором написано "остались платья? " нужно провести стрелку со словом "да" до второй черной стрелки(после фразы "выйди из шкатулки).рамку "остались платья? " тоже надо обвести зелёным цветом. перед словом "конец" есть пустая рамка,там напиши "иди в шкатулку",а у стрелки которая ведёт к этой рамке нужно написать "нет" и последнее.от треугольной рамки с вопросом "все банты пришиты? " идёт стрелка вниз,рядом с ней напиши слово "да".и нужно самому провести стрелку до стрелки вниз от фразы "подойди к платью" и у новой стрелки написать слово "нет" мы делали это в классе,в прошлом году поэтому должно быть правильно: )
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны, и в четвёртую степень – отрицательные. нужно написать для basic!
var a,b,c: integer;
begin
read(a,b,c);
if a< 0
then a: =a*a*a*a
else a: =a*a;
if b< 0
then b: =b*b*b*b
else b: =b*b;
if c< 0
then c: =c*c*c*c
else c: =c*c;
write (a,' ',b,' ',c);
end.
вроде так затестируй на паскале у меня нет но суть такова вроде должна работать