А)a•2+b•3
б) (a+a)•(b+b)
в)a•3+b+c
г) (a•2+b)+c
е) a•2+b•3
ж)(a•2)+c•2+(b•2)
Ну а два остальных попробуй сделать сам/а
Ответ:
program ideone;
uses SysUtils;
function WordsCount(s: string): integer;
var
i, count: Integer;
begin
count := 0;
for i := 1 to Length(s) do
begin
if (s[i] <> ' ') and ((i = 1) or (s[i-1] = ' '))
then inc(count);
end;
WordsCount := count;
end;
var
a: string;
count: Integer;
isUrgent : Integer;
cost: Double;
begin
writeln('Введите строку A: ');
read(a);
count := WordsCount(a);
writeln('Посылка срочная? Если да, введите 1, иначе 0: ');
read(isUrgent);
cost := count * 2;
if (isUrgent = 1) then cost := 1.2*cost;
writeln(Format('Стоимость посылки составляет %.2f рублей.', [cost]));
end.
По ІР адресу можна найті код сайта
Var m,n,k,p,q,r:integer;newc,newm,news:real;
begin
writeln('Введите настоящее и прошедшее время(ч,мин,с)');
read(m,n,k,p,q,r);
if (m=p) and (n=q) and (k=r) then writeln ('Время не изменится');
newc:=m+p;
if n+q>=60 then
begin
newc:=newc+(n+q) div 60;
newm:=(n+q) mod 60;
end
else newm:=n+q;
if k+r>=60 then
begin
newm:=newm+(k+r) div 60;
news:=(k+r) mod 60;
end
else news:=k+r;
while (newc>=24) do newc:=newc-24;
writeln('Часы покажут ',newc,'ч. ', newm, 'мин. ', news, 'с.');
end.
Если вы о цвете то- красный,синий,зеленый.