Var
s,a:real;
begin
write('введите сумму ');
readln(a);
s:=a*18/100;
writeln('сумма процентов ', s);
end.
1) 0,5*1024*8=4096
Из формулы K=N*i,где N число символов,а i-информационный вес одного символа имеем:
i=K/N
i=4096/1024=4 бита.
Ответ: i=4 бита
простейшее уравнение:
10000/13=769
10000/17=588
10000-(588+769)=8643
Ответ:
1.
var t1,t2,t3,u1,u2,u3:integer;
begin
write('t1 = ');
readln (t1);
write('u1 = ');
readln (u1);
write('t2 = ');
readln (t2);
write('u2 = ');
readln (u2);
write('t3 = ');
readln (t3);
write('u3 = ');
readln (u3);
if t1*100+u1<t2*100+u2+t3*100+u3 then writeln('Денег не хватает')
else writeln('Сдача ',(t1*100+u1-(t2*100+u2+t3*100+u3))div 100,'р ',(t1*100+u1-(t2*100+u2+t3*100+u3))mod 100,'к')
end.
2.
var s:string;
begin
write('Введите ФИО ');
readln (s);
if s[length(s)]='а' then writeln('Женщина')
else if s[length(s)]='ч' then writeln('Мужчина')
else writeln('Не могу определить ваш пол.')
end.
Объяснение:
Вторая задача выдаёт не 100% результат, т.к. бывают сложные имена. Также важно, чтобы отчество вводилось последним.
А = "К<span>апитан корабля получает специальное указание</span>"
В = "Д<span>олжен покинуть порт на своем корабле</span>"
С = "О<span>н впредь лишается допуска в этот порт</span>"
а) А → В
б) ¬А → (¬В ⋁ С)
в) С ⋁ ¬А