Определите, какая из двух точек A и B находится ближе к началу координат.
Если точки находятся на одинаковом расстоянии, вывести 'Точки A и B находятся на одинаковом расстоянии от начала координат'.
К функциональной концепции, тк в генетике происходит воздействие одних объектов на другие, воздействия меняют объекты - например наследственность.
Информация - да имеет контекстный смысл. Например - кран сломался. Один поймет что в квартире водопроводный, другой - кран на стройке, третий еще как то. Если бы при передаче этой информации рядом стоял оромный кран - все было бы ясно как Божий день т.к присутствует контекст стройка, кран...
1) 3
2) 1 2 3 4 5
3)
Program name;
var i:integer;
begin
for i:=1 to 6 do writeln('Ваше Имя');
end.
4)
a)
б)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=20 to 40 do sum:= sum+i;
writeln(sum);
end.
в)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=40 to 70 do sum:= sum+i;
writeln(sum);
end.
г)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=30 to 60 do if i mod 2 = 0 then sum:= sum+i;
writeln(sum);
end.
д)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=36 to 66 do if i mod 2 = 1 then sum:= sum+i;
writeln(sum);
end.
Взвешиваем две любые монеты- Чашки в равновесии -Да Третья монета фальшивая-Нет Фальшивая монета в более легкой чашке
<span>Program Bob;
var z:integer;
begin
writeln('введи номер дня недели');
readln(z);
if z=1 then writeln('Понедельник')
else if z=2 then writeln('Вторник')
else if z=3 then writeln('Среда')
else if z=4 then writeln('Четверг')
else if z=5 then writeln('Пятница')
else if z=6 then writeln('Суббота')
else if z=7 then writeln('Воскресенье')
else writeln('нет такого дня недели');
readln;
end.
Пожалуйста :) ЫЫЫ</span>