Условие? Действия1Действия2 данет

Задача С клавиатуры вводятся не равные между собой числа а и b. Большее из этих чисел заменить их суммой, а меньшее - их удвоенным произведением. Решение. Блок – схема Память аbаb начало Ввод а,b а>b c :=a a:=a+b b:=2*a*b c :=b b:=a+b a:=2*a*b stop +- В предложенном алгоритме допущена ошибка. Найти ее и объяснить? Вывод а,b

начало Ввод а,b а>b c :=a a:=a+b b:=2*c*b c :=b b:=a+b a:=2*a*c stop Программа на Паскале Вывод а,b Перечислите 6 ошибок, допущенных в программе. Programm Task_3; Uses Crt Var a,b: Integer; Begin Clrscr Write(Введите числа a, b:); ReadLn(a,b) If a>b Then c:=a; a:=a+b; b:=2*c*b; Else c:=a; b:=a+b; a:=2*a*c; WriteLn(a=,a); WriteLn(b=,b); ReadLn; End.

Pogram Task_3; Uses Crt; Var a,b,c: Integer; Begin Clrscr; Write(Введите числа а,b:); ReadLn(a,b); If a>b Then Begin c:=a; a:=a+b; b:=2*c*b; End Else Begin c:=b; b:=a+b; a:=2*a*c; End; WriteLn(a=,a); WriteLn(b=,b); ReadLn; End. Pogram Task_3; Uses Crt Var a,b: Integer; Begin Clrscr Write(Введите числа a, b:); ReadLn(a,b) If a>b Then c:=a; a:=a+b; b:=2*a*b; Else c:=a; a:=a+b; b:=2*a*b; WriteLn(a=,a); WriteLn(b=,b); ReadLn; End. Программа с ошибками.

Задача С клавиатуры вводятся 3 числа. Найти большее из этих чисел. Паскаль … If (a>b) and (a>c) Then WriteLn(Большее:,a) Else If (b>c) Then WriteLn(Большее:,b) Else WriteLn( Большее:,c); … a a,b,c b>c aa b c (a>b) and (a>c)

Задача С клавиатуры вводятся 3 числа. Напечатать те из них, которые четные.