Http (hyper text transfer protocol)
Проторкол передачи данных, служащий для передачи html страниц (hyper text markup language)
Program z1;
var i,m:integer;
begin
m:=0;
for i:=39 to 5000 do
if (i mod 39=0)and(m<i) then
m:=i;
writeln(m);
end.
SMP - Первая буква - S, вторая - M, третья - согласная
OSN - Первая - O, подходит, вторая - S, подходит, третья - согласная
Var
x,max:real;
n,i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
begin
write('Введите число ',i,': ');
readln(x);
if x<0 then
begin
if max=0 then max:=x; // если это первое отр.число
if x>max then max:=x
end
end;
writeln('Наибольшее среди отрицательных: ',max)
<span>end.</span>
Решение смотри во вложении.