Если в паскале
uses crt;
var v:integer;
begin
writeln('Введи свой возвраст');
read(v);
if v>17 writeln('Я с тобой дружу');
else writeln('Я с тобой не дружу');
end.
Если отношение предмета к предмету то
потому что разные предметы по разному реагируют друг на друга
или я хз
Var a,b,c:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln(3)
else if (a=b)or(a=c)or(b=c) then writeln(2)
else writeln(0);
end.
Пример:
a, b, c:
1 2 1
2
Папирус, стена, камень, пещера, янтарь
Var
c, i, s: real;
begin
s := 0;
c := 50;
while c > 12 do
begin
i := (c / 100) * 20;
c := c - i;
s := s + 1;
end;
write(s);
end.