1. X:=4; if x>0 then y:=sqr(x); writeln(y)
2. If x>0 then y:=2x else
y:=3abs(x); writeln(y)
3. Case 5<>5 of
True:writeln(1);
False:writeln(3); end;
4. Case 6 of 2: writeln(0); 4:
writeln(1) Else writeln(2);
end;
5. Begin x:=5; x:=ord(x);
x:=succ(x); writeln(x);
end;
6. X:=10; if x>10 then y:=xx
else y:=2x; writeln(x)
7. X:=10; if odd(x) then y:=x
div 2 else y:=x mod 2;
writeln(y)
8. K:=0; case 8 of 6:
writeln(k); 8: begin
k:=k+1; writeln(k); end;
End;

116

383

Посмотреть ответы 1

Ответы на вопрос:

NDKinel

Информатика

4,7(83 оценок)

Const n = 13; var a: array[1..n] of integer; i,x: integer; begin write('x = '); readln(x); write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(n)-n div 2; write(a[i],' '); end; writeln; write('искомые элементы: '); for i: = 1 to n do if (-1 < = a[i] mod x)and(a[i] mod x < = 0) then write(a[i],' ') end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.