1. Переведите на язык программирования:
а) ввести А и С
увеличить А в 10 раз
уменьшить С в 20 раз
напечатать модуль разности А и С
б) ввести А и С
если А>С, то увеличить А в 5 раз иначе
уменьшить С в 2 раза
напечатать значения А и С
конец
в) ввести A,B и С
найти сумму B и С
если полученная сумма больше А то увеличить B на 10, иначе
уменьшить С на 15
напечатать A, B и С
конец
а) ввести А и С
увеличить А в 10 раз
уменьшить С в 20 раз
напечатать модуль разности А и С
б) ввести А и С
если А>С, то увеличить А в 5 раз иначе
уменьшить С в 2 раза
напечатать значения А и С
конец
в) ввести A,B и С
найти сумму B и С
если полученная сумма больше А то увеличить B на 10, иначе
уменьшить С на 15
напечатать A, B и С
конец
More Questions From This User See All
Answers & Comments
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.