<span>
1)<span>101010101 = </span>765 удачи вам !!!!!!</span><span><span><span /><span /></span></span>
Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('----------------------');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('----------------------');
Writeln('Максимальное число: ', max);
Writeln();
end.
var s,i,k:integer;
begin
s:=1;
for k:=1 to 7 do begin
readln(i);
if (i mod 3=0) and (i<0) then s:=s*i;
end;
writeln(s);
end.
Var
n:integer;
begin
write ('Введите трехзначное число: ');
readln (n);
if (n mod 10 = n div 100) and (n mod 10=n mod 100 div 10) then writeln ('Да') else writeln ('Нет');
end.
Выбирите истиное высказывание! (Так)
В коробке лежали 5 серых насков, 5 красных, 8 чёрных.
А) Еслидостать 4 носка среди них будет обязательно 3 чёрных.
В) Если достать 15 носков то среди них обязательно будет красные носки.
С) Если достать 2 носка среди них будет чёрные.
Правильно будет В)
Сама состовляла!!!