Var
s,fam,nam:string;
begin
writeln('Vvedite imy i familiy:');
readln(s);
nam:=copy(s,1,pos(' ',s)-1);
fam:=copy(s,pos(' ',s)+1,length(s));
if nam[length(nam)]=fam[length(fam)-1] then writeln('Sovpadayut') else writeln('Ne sovpadayut');
write('Dly vyhoda nagmite Enter');
readln;
end.
<meta charset = "UTF 8">
<script>
var a = prompt("Введите первое число");
var b = prompt("Введите второе число");
var c = a + b;
var k = a * b;
alert("Произведение" + k);
alert("Сумма"+ c);
</script>
Кстати это HTML программа для браузера.
Решение во вложении. Не забудьте разрешить выполнение макросов и проектов VBA без цифровой подписи.
1. Самый Высокий Дима.
Вася по росту 2.
Игорь по росту 3
4. Самый Низкий Толик.
Def implementetion(a,b)
a=to_bool(a)
b=to_bool(b)
return (not a or b)
end
def to_bool(s)
if s==true or s==false
return s
end
return s.to_i==0 ? false : true
end
k=0
for bin in 0.."111111".to_i(2)
s=("000000"+bin.to_s(2))[-6..-1]
r=implementetion(implementetion(implementetion(implementetion(implementetion(s[0],s[1]),s[2]),s[3]),s[4]),s[5])
if r then
k+=1
p [s]
end
end
p k
p 1+ 2+ 2**3+2**5