Var a,b,c,d,e,m1,m2,m3,ITOG:integer;
Procedure nod(x,y:integer;var n:integer);
Begin
If x=y then n:=x
else
if x>y then NOD(x-y, y, n)
Else NOD(x, y-x, n);
end;
begin
read (a,b,c,d,e);
nod(a,b,m1);
nod(c,d,m2);
nod(m1,m2,m3);
nod(m3,e,ITOG);
writeln (ITOG);
end.
Пример:
90 135 45 315 75
15
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
procedure Foo;
begin
var k:integer;
Read(k);
if k<>0 then begin Foo; Print(k) end
end;
begin
Foo;
end.
Ответ:
Устройства ввода — это, в основном, датчики преобразования неэлектрических величин (расположение в пространстве, давление, вязкость, скорость, ускорение, освещённость, температура, влажность, перемещение, количественные величины и т. п.) и электрических величин в электрические сигналы, воспринимаемые процессором для дальнейшей их обработки в основном в цифровом виде.
Клавиатура
Мышь и тачпад
Планшет
Джойстик
Сканер
Цифровые фото, видеокамеры, веб-камеры
Микрофон
Устройства вывода — это преобразователи электрической цифровой информации в вид необходимый для получения требуемого результата, который может быть как не электрической (механические, тепловые, оптические, звуковые), так и электрической природы (трансформаторы, нагреватели, электродвигатели, реле).
Монитор
Графопостроитель
Принтер
Акустическая система
Ну решение будет такой а с б ж сж+аб=сжаб ответ будет сжаб
Var a, b, c,rez: real;
begin
writeln( 'Введите три числа' );
read ( a, b, c );
rez := ( a + b + c ) / 3
writeln ('ср. знач.=', rez:0:2 );
<span>end.</span>
