# Please count please. Task Pascal. Two variables of the whole A and B type are given. If their values are not equal, then to appropriate to each variable the sum of these values and if are equal, then to appropriate to variables zero values. To display new A and B values.

Malaath

348

Var A, B,C: integer; Begin Write (A =); ReadLn(A); Write (B =); ReadLn(B); if A< & gt; B then Begin C: = A+B; A: = C; B: = With End else Begin A: = 0; B: = 0 End; WriteLn (A =, A); WriteLn (B =, B); End.

262

Answer add
ivanka

### Other questions in the section - informatics

Roman

Napishite the program which calculates the sums of elements of the A[1:50] array filled

2020-10-26 10:00:32

Askold

Task 1. Filling of the massif from a to bdan the massif from 30

2020-10-26 10:00:32

Bralanim

Find all natural numbers which are not exceeding the set number N, kotoryedelitsya without

2020-10-26 10:00:32

Androdora

Please count PLEASE! IN the PASKALYaSostavte LANGUAGE "We found the program which on k

2020-10-26 10:00:32

Doridred

to define whether belongs three numbers to the piece set from the keyboard are

2020-10-26 10:00:32