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
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
