larisau41
?>

33. последовательность чисел вводится последовательность целых чисел, заканчивающаяся нулем. преобразовывать последовательность следующим образом: 1) заменить отрицательные числа в последовательности на их модули и вывести получившуюся последовательность; 2) в полученной последовательности заменить четные числа на максимальное число последовательности, вывести результат; 3) в полученной последовательности вычесть из каждого члена последовательности 2, вывести результат; 4) в полученной последовательности заменить отрицательные на 0, вывести результат. пример. последовательность: 1 2 3 0 1) 1 2 3 2) 1 3 3 3) –1 1 1 4) 0 1 1

Информатика

Ответы

olyafom1234
Сообщение содержит ссылки на посторонний сайт, но он предназначен для хранения написанного кода, и я его использую из-за того, что форматирование здесь слетает.
Dmitrievna-Dmitrii980
Var a,b,c,a1,b1: real; begin a: =168; b: =178; write('введите рост - '); readln(a1); write('введите вес - '); readln(b1); if (a1< a) or (a1> b) then   writeln('предендент не может вступить в школу так как его рост не соответствует нормам.')     else   begin     if b1> a1 then   writeln('предендент не может вступить в школу так как его вес не соответствует нормам.')     else writeln('человек может вступить в школу.');   end; end.
dovgash2
Var a,b,c: real;     s: string; begin   write('длины сторон через пробел:   ');   readln(a,b,c);   if (a+b> c) and (a+c> b) and (c+b> a) then   begin     if (sqr(a)+sqr(b)=sqr(c)) or         (sqr(a)+sqr(c)=sqr(b)) or         (sqr(b)+sqr(c)=sqr(a)) then           s: ='треугольник прямоугольный'     else       if (sqr(a)+sqr(b)> sqr(c)) and         (sqr(b)+sqr(c)> sqr(a)) and         (sqr(a)+sqr(c)> sqr(b))   then         s: ='треугольник остроугольный'     else s: ='треугольник тупоугольный';     writeln(s);     end   else writeln('треугольник составить нельзя'); end. 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

33. последовательность чисел вводится последовательность целых чисел, заканчивающаяся нулем. преобразовывать последовательность следующим образом: 1) заменить отрицательные числа в последовательности на их модули и вывести получившуюся последовательность; 2) в полученной последовательности заменить четные числа на максимальное число последовательности, вывести результат; 3) в полученной последовательности вычесть из каждого члена последовательности 2, вывести результат; 4) в полученной последовательности заменить отрицательные на 0, вывести результат. пример. последовательность: 1 2 3 0 1) 1 2 3 2) 1 3 3 3) –1 1 1 4) 0 1 1
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

makashi28
andyrvo
majorovnatalya5
Yevsyukov1697
siger06297
Nivanova995
Евгений1286
Vyacheslavovna1867
andrewa
atlantika7
Panfilov_Anna
Васильевна_Наталья
valera850515
MDubovikov73
VladimirovichKazakova1202
Решите задние по информатике