Не откажусь от спасибо и звездочек на ответ xD
var a,b,c:integer;
begin
writeln('Введите три разных числа');
readln(a,b,c);
if (a>b)and(a>c) then writeln(a,' ','найбольшее');
if (b>a)and(b>c) then writeln(b,' ','найбольшее');
if (c>a)and(c>b) then writeln(c,' ','найбольшее') else
writeln('Пожалуйста, введите три разных числа');
readln;
end.
79:2=39 1
39:2=19 1
19:2=9 1
9:2=4 1
4:2=2 0
2:2=1 0
1:2=0 1
ответ:1001111
26+26 вроде так...........................
№3
алг
нач
цел n,i
вывод '<span>Введите натуральное число:', нс
</span>ввод n
нц для i от 1 до n вывод i,': ',i*i,' ',i*i*i, нс
кц
кон
<span>№4</span>
алг
нач
цел a,b,i
вывод '<span>Введите два числа:', нс
ввод a,b
нц для i от a до b вывод i,'*',i,'=',i*i, нс
кц
кон</span>
From random import randint
a=[]
x=0
y=0
for i in xrange(15):
value=randint(-50, 50)
if not value%2: y+=value
else: x+=value
a.append(value)
<span>print "Исходный массив: %s, Сумма чётных: %i, Сумма нечётных: %i, По модулю больше: %i".decode("utf-8")%(a, x, y, max(abs(x), abs(y)))</span>