10 варик Var a,b,c,K,sum:real; Begin K:=0; Sum:=0; Write ('a='); read (a); Write ('b='); read (b); Write ('c='); read (c); begin If a<0 then writeln ('K:=K+1' , 'sum:=sum+a') If b<0 then writeln ('K:=K+1' , 'sum:=sum+b'); If c<0 then writeln ('K:=K+1' , 'sum:=sum+c'); Writeln('sum=sum/k'); End end. у меня выходит sum=sum/k что не так?(
Задание невозможно решить!! Буква а может быть закодирована как 010, так и 0. Рассмотрим оба случая: 1) А-010, Р-01, К-00 Тогда, когда мы начнем расшифровывать последовательность получится, что первая буква К, а дальнейшая расшифровка невозможна. 2) А - 0, Р-1001, К-0001 Тогда, когда мы начнем расшифровывать заданную последовательность получится, что первые две буквы АА, а дальнейшая расшифровка невозможна.
Единственное более или менее адекватное решение : А-0, Р-100, К-10001 Тогда расшифровка - ААК. Но, во-первых, такого ответа нет в вариантах, а, во-вторых, тогда и шифровка согласных букв имеет разную длину. Думайте сами, решайте сами.. Возможно, Вы опечатались?
Вариант 11 Дядя Федор, кот Матроскин и пес Шарик летом жили в Простоквашино, а папа с мамой слали им письма, посылки, телеграммы и бандероли, которые доставлял почтальон Печкин. Каждое письмо весило в среднем 100 г, каждая посылка - 5 кг, каждая телеграмма - 50 г, каждая бандероль - 500 г. Дядя Федор получил 10 писем, 2 посылки, 10 телеграмм и 1 бандероль. Кот Матроскин получил 4 письма, 1 посылку, 2 телеграммы и 1 бандероль. Пес Шарик не получил ни одного письма, ни одной телеграммы, зато получил 4 посылки и 2 бандероли.Построить электронную таблицу, из которой будет видно: сколько и какой почты получил каждый из трех жителей Про-стоквашино; сколько килограммов почты получил каждый из трех простоквашинпев; сколько весила вся доставленная Печкиным почта одного вида; какой общий груз пришлось перенести почтальону Печкину. смотри хls
Потому что ты выводишь строку "sum=sum/k"
Еще и переменные sum и k ты не увеличиваешь, а просто выводишь
"K:=K+1' , 'sum:=sum+b"
Исправленный код:
Var a,b,c,k,sum:real;
Begin
k:=0;
sum:=0;
Write ('a='); read (a);
Write ('b='); read (b);
Write ('c='); read (c);
begin
If a<0 then begin k := k + 1; sum := sum + a; end;
If b<0 then begin k := k + 1; sum := sum + b; end;
If c<0 then begin k := k + 1; sum := sum + c; end;
writeln('sum=',sum/k:5:2);
end;
end.