A=int(input(“Введите 1 основание’)
b= int(input(“Введите 2 основание’)
с= int(input(“Введите высоту’)
S=(а+b)/2*h
print(S).
Это на питоне
Program run;
var T1, T2, T3, min:integer;
begin
write('Введите время Ferrari : ');readln(T1);
write('Введите время Toyota : ');readln(T2);
write('Введите время Ford : ');readln(T3);
if(T1>T2) then min:=T2
else min:=T1;
if(T3>min) then
begin
if(min=T1) then writeln('Самой быстрой была Ferrari.')
else writeln('Самой быстрой была Toyota');
end
else writeln('Самой быстрой машиной был Ford.');
end.
//Дам блок-схему и код на Паскале
//Pascal ABC.NET v3.0 сборка 1111
var
r,v,s:real;
begin
readln(r);
v:=4/3*pi*power(r,3);
s:=3/4*pi*sqr(r);
writeln('V=',v,' S=',s);
end.
Заменяем каждую цифру шестнадцатиричного числа соответствующей двоичной тетрадой.
BEC2(16)=1011 1110 1100 0010(2)
В полученном числе девять единиц.