Pascal. 2 natural numbers are entered. To remove their NOC. Please count please!
Tarasov
165
var a, b, nok: integer; begin readln (a, b); nok: = (a*b); while a< & gt; b do begin if a> b then a: = a-b else b: = b-a; end; nok: = nok div a; write (nok); end.
65
Answer add
Other questions in the section - informatics
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
Vonifatiy
Features of work of the person with information
2020-10-26 10:00:32
Kasusevy
Please count!!!! The conditional operator is given: if a< 5 then c: =1else if
2020-10-26 10:00:32
Fobor
