# Make the Pascal language program for the solution of the following task. Enter 3 numbers from the keyboard: And, In and Page. If And yes With are multiple 5, and In not multiple, then replace all numbers also with squares and display result. If only In multiply 5, then increase all numbers by 10 and display result. Otherwise, find and remove an arithmetic average of these numbers.

Burizel

109

//PascalABC. NET 3. The 2nd assembly of 1318 Var a, b, c: integer; begin readln (a, b, c); if (a mod 5 = 0) and (with mod 5 = 0) and (b mod 5< & gt; 0) then writeln (sqr(a), sqr(b), sqr(c)) else if (mod 5< & gt; 0) and (with mod 5< & gt; 0) and (b mod 5 = 0) then writeln (a+10, b+10, c+10) else writeln ((a+b+c)/3); end. 15 5 34 18

238

Answer add
Boris

### Other questions in the section - informatics

Evsevievich

To display all words from To letters in which the letter Yvstrechayetsya more than

2020-10-26 10:00:32

Gavilar

Read the poem by A. Starikov and determine the age of the girl. STRANGE

2020-10-26 10:00:32

Tarasov

Pascal. 2 natural numbers are entered. To remove their NOC. Please count please!

2020-10-26 10:00:32

Nonamsam

Napissat the program in a programming language.

2020-10-26 10:00:32

Evgeniy

1. The drawing of 512 on 64 pixels in size is coded with a

2020-10-26 10:00:32