Var godA, godO, godL,ctar:integer;
begin
wrietln("A");readln(godA);
wrietln("O"); readln(godO);
wrietln("L"); readln(godL);
if (godA<godO) then ctar =<span>godO else ctar = godA;
</span>if (ctar<godL) then write("Сред:",ctar," Стар:",godL ) else
if(godA<godL) then write("Сред:",godL," Стар:",ctar) else
write("Сред:",<span>godA</span>," Стар:",ctar);
end;
1)совместное использование информации пользователями, работающими на удаленных друг от друга компьютерах;
2) одновременная работа с документами. и программами;
3) совместное использование принтеров и других периферийных устройств.
2 ответ Протокол IP используется для адресации компьютеров в сети. В каждом пакете информации, передаваемом по сети, указан IP-адрес компьютера, благодаря которому информация и попадает по назначению. IP-адрес состоит из четырех номеров, разделенных точками. Каждое число в этом адресе занимает длину, равную одному байту, поэтому может принимать значения от О до 255.
Ассемблер (Транслятор исходного текста программы)
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
вот фото - на нем четко изображен ,, робот садовник,,