Минимально и нужно , интересно где еще такое задают
<span>При нахождении наибольшего общего делителя отрицательные числа можно заменить их абсолютными величинами, то есть, НОД(−585, 81, −189)=НОД(585, 81, 189). Разложения чисел 585, 81 и 189 на простые множители имеют соответственно вид585=3·3·5·13, 81=3·3·3·3 и 189=3·3·3·7. Общими простыми множителями этих трех чисел являются 3 и 3. Тогда НОД(585, 81, 189)=3·3=9, следовательно,НОД(−585, 81, −189)=9.</span>Ответ:<span>НОД(−585, 81, −189)=9.</span>
1)
var a:real;
begin
writeln('Введите число');
readln(a);
if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');
end.
2)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');
end.
3)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');
end.
4)
var a,b:longint;
begin
writeln('Введите числа');
readln(a,b);
if(a>b) then writeln(b) else writeln(a);
end.
5)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a>0) then a:=a+5 else a:=a-1;
writeln(a);
end.
6)
var a,i,k:longint;
begin
k:=0;
for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;
writeln(k,' ','положительных чисел');
end.
<span>var a: array[1..3,1..4] of integer;</span>
<span> i,j,s: integer;
</span><span>begin
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> write('строка ',i,': ');
</span><span> for j:=1 to 4 do read(a[i,j]);
</span><span> end;
</span><span>// вывод массива на экран
</span><span> writeln('массив а по строкам:');
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> for j:=1 to 4 do write(a[i,j]:4);
</span><span> writeln;
</span><span> end;
</span><span>// суммы элементов по строкам
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> s:=0;
</span><span> for j:=1 to 4 do s:=s+a[i,j];
</span><span> writeln('сумма элементов строки ',i,': ',s);
</span><span> end;
</span><span>end.
ввод - вывод
</span>строка 1: 10 11 12 13
<span>строка 2: 14 15 16 17
</span><span>строка 3: 18 19 20 21
</span><span>массив а по строкам:
</span><span> 10 11 12 13
</span><span> 14 15 16 17
</span><span> 18 19 20 21
</span><span>сумма элементов строки 1: 46
</span><span>сумма элементов строки 2: 62
</span><span>сумма элементов строки 3: 78
</span>