59495...........................................................
Program n1;
var n,i,a,k: integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
read(a);
if abs(a) in [10..99] then k:=k+1;
end;
write(k);
end.
<span>Есть файл Байкал.png.
Он находится в каталоге "Экскурсии" - получаем: Экскурсии/Байкал.png
Этот каталог перенесли в каталог реклама. Получили:
Реклама/Экскурсии/Байкал.png
А полное название будет вместе с диском, где этот файл находится:
D:/</span><span>Реклама/Экскурсии/Байкал.png
Ответ: пункт 3</span>
Program z_3;
var a,b,n,s, i: integer;
Begin
repeat
writeln ('Введите Ваше число');
readln (n);
if (n < 10) or (n > 99) then i:= 0
else i:= 1;
until i>0;
a:= n mod 100 div 10;
b:= n mod 10;
s:= (a+b)+sqr (a+b);
if s <> n then writeln ('Число не соотвествует условию')
else writeln ('Число ',s, ' соответствует условию');
End.
Рисуй так. я прикрепил файл.