1. переведите на язык программирования: а) ввести а и с увеличить а в 10 раз уменьшить с в 20 раз напечатать модуль разности а и с б) ввести а и с если а> с, то увеличить а в 5 раз иначе уменьшить с в 2 раза напечатать значения а и с конец в) ввести a,b и с найти сумму b и с если полученная сумма больше а то увеличить b на 10, иначе уменьшить с на 15 напечатать a, b и с конец

240

440

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

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

Galor

Информатика

4,8(15 оценок)

Program 1; var a,c: integer; begin read(a,c); a : = a*10; c : = c mod 20; write(abs(a-c)); end. program 2; var a,c: integer; begin read(a,c); if a > c then a : = a*5 else c : = c mod 2; write(a,c); program 3; var a,b,c, sum: integer; begin read(a,b,c); sum : = b+c; if sum > a then b : = b +10 else c : = c-15; write(a,b,c); end.