Помогите написать программу в Pascal abc?

Mike53 12 мая 2021 г., 09:42:18

PascalABC.

NET 3.

0, сборка 1110

procedure Euclid(a, b : integer ; var gcd : integer) ;

var t : integer ;

begin while b0 do begin a : = a mod b ; t : = b ; b : = a ; a : = t end ; gcd : = a

end ;

var i, a, b, c : integer ;

begin Randomize ; for i : = 1 to 10 do begin a : = Random(99) + 1 ; b : = Random(99) + 1 ; Euclid(a, b, c) ; Writeln('НОД(', a, ', ', b, ') = ', c) end

end.

Тестовое решение :

НОД(32, 68) = 4

НОД(80, 68) = 4

НОД(36, 19) = 1

НОД(4, 61) = 1

НОД(46, 72) = 2

НОД(55, 53) = 1

НОД(75, 76) = 1

НОД(27, 96) = 3

НОД(98, 82) = 2

НОД(46, 23) = 23.

MiqSquyirel 12 мая 2021 г., 09:42:19

Program ok ;

var

num : integer ;

a, b, c : integer ;

begin

readln(num) ;

a : = num mod 10 ; num : = (num - a)div 10 ;

b : = num mod 10 ; num : = (num - b)div 10 ;

c : = num ;

num : = a + b + c ;

if num or 1 = num then

writeln('Нечетное') else writeln('Четное') ;

readln ;

end.

Lenarygalova91 3 янв. 2021 г., 08:54:52 | 10 - 11 классы

Добрый вечер, помогите мне?

Добрый вечер, помогите мне!

Нужно написать код для программы Pascal ABC, нужно написать код для решения этого уравнения.

Спасибо!

Nikitashapoval2 10 февр. 2021 г., 01:47:37 | 5 - 9 классы

Нужно написать программу на pascal abc?

Нужно написать программу на pascal abc.

Даяна1001 20 апр. 2021 г., 06:51:44 | 5 - 9 классы

Помогите, пожалуйста, нужны программы для Pascal ABC?

Помогите, пожалуйста, нужны программы для Pascal ABC.

EvGen4iK514 1 мар. 2021 г., 21:04:24 | 5 - 9 классы

Нужно написать программу на pascal abc?

Нужно написать программу на pascal abc.

Fsd39238 31 янв. 2021 г., 00:36:02 | 5 - 9 классы

Написать программу на языке Pascal (ABC)?

Написать программу на языке Pascal (ABC).

Номер 20.

2.

Swetikk 23 июл. 2021 г., 00:55:34 | 5 - 9 классы

Нужно написать программу pascal abc?

Нужно написать программу pascal abc.

Аришка555551 29 июл. 2021 г., 19:52:16 | 10 - 11 классы

Помогите написать программу на Pascal, пожалуйста?

Помогите написать программу на Pascal, пожалуйста.

Бааарссс 6 июн. 2021 г., 23:56:07 | 5 - 9 классы

Написать программу на нахождение суммы отрицательных четных чисел на языке Pascal ABC?

Написать программу на нахождение суммы отрицательных четных чисел на языке Pascal ABC.

Rafaelimaev 25 июл. 2021 г., 11:11:16 | 10 - 11 классы

Написать программу вычисления pascal abc?

Написать программу вычисления pascal abc.

3453467 21 окт. 2021 г., 17:43:18 | 10 - 11 классы

Написать программу вычисления Pascal abc?

Написать программу вычисления Pascal abc.