Во вторник Иван Алексеевич сказал Александру, что файл с материалами к уроку химии выложен в Интернете по адресу http://materials.schol1892.ru/chemistry/tab.xls. В четверг в связи с переналадкой школьного сервера Иван Александрович переместил файл в каталог tab который расположен в корневом каталоге на сайте chemistry.info, доступ к которому осуществляется по протоколу ftp. Имя файла не изменилось. Укажите новый адрес файла с материалом к уроку.

ftp://chemistry.info/tab.xls

Объяснение:

так, начинаем с протокола(ftp), после него всегда двоеточие и двойной слеш

ftp://

после смотрим сайт (chemistry.info)

ftp://chemisty.info/

больше папок нет, значим пишем имя файла (tab.xls)

ftp://chemistry.info/tab.xls

Program Sum;
Var a, b: Integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Сумма a и b равна ', a + b);
ReadLn;
End.

Program SumRow;
Const min = 5; max = 28;
Var a, i: Integer;
Begin
a := 0;
For i := min To max Do
a := a + i;
WriteLn('Сумма ряда равна ', a);
ReadLn;
End.

Program Digit;
Var a, b: LongInt;
c, d, i: Integer;
Begin
Write('a = ');
ReadLn(a);
b := 1;
c := 0;
While a Div b <> 0 Do
Begin
c := c + 1;
b := b * 10;
End;
While a > 0 Do
Begin
d := d + (a Mod 10);
a := a Div 10;
End;
WriteLn('Количество цифр в числе равно ', c);
WriteLn('Сумма цифр числа равна ', d);
ReadLn;
End.

Uses crt;
const n=4;
m=4;
var a:array[1..n,1..m] of integer;
s,i,j,p:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j] := random(99);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
writeln;
p:=1;
for i:=1 to n do
for j:=1 to m do
if i=j then p:=p*a[i,j];
s:=0;
if (a[1,2]*a[2,3]*a[3,4]=p) then s:=s+a[1,2]+a[2,3]+a[3,4];
if (a[1,3]*a[2,4]=p) then  s:=s+a[1,3]+a[2,4];
if a[4,4]=p then   s:=s+a[4,4];
if (a[2,1]*a[3,2]*a[4,3]=p) then  s:=s+a[2,1]+a[3,2]+a[4,3];
if (a[1,3]*a[2,4]=p) then   s:=s+a[2,1]+a[3,2];
if a[1,4]=p then   s:=s+a[1,4];
writeln(s);
end.