Var c1, c2, c3: integer;
b: boolean;
begin
readln(c1, c2, c3);
if (c1 = c2 * c3) then
begin
b := true;
writeln(c1, ' = ', c2, ' * ', c3);
end;
if (c3 = c1 * c2) then
begin
b := true;
writeln(c3, ' = ', c1, ' * ', c2);
end;
if (c2 = c1 * c3) then
begin
b := true;
writeln(c2, ' = ', c1, ' * ', c3);
end;
if not (b) then writeln('NO');
<span>end.
Третье ради спортивного интереса сделал:)
var a, b: string;
begin
writeln('Enter a string: ');
readln(a);
readln(b);
if (Pos(b, a) = 0) then writeln('No') else writeln('Yes');
<span>end.</span>
</span>
Ответ:
7.
Объяснение:
Программа находит, является ли хотя бы одно число из 2 большим 10. Заметим, что такая пара только одна
<span>f:= x*x*x*x; x:=x+0.1; writeln (f,x);
последний варант
</span>
Каждый компьютер подключенный к интернету, имеет свой уникальный IP-адрес.
Доменная система имен присваивает IP-адресу уникальное доменное имя и не у каждого IP-адреса может быть такое доменное имя. Сама по себе доменная система имеет иерархическую структуру: домен 1ого (верхнего) уровня , домен 2ого и т.д.
Транспортный протокол организует разбивание файла в процессе его передачи на пакеты, а при получение "склеивает" его обратно.
Протокол маршрутизации обеспечивает саму передачу файла от компа к компу. Файл(пакеты) в процессе передачи проходят промежуточные сервера в интернете, которые перенаправляют на следующие, постепенно приближаясь от компа отправителя к компу получателя.