var
a,b,c,n: integer;
begin
writeln('Сколько всего актеров в театре?');
readln(n);
writeln('Сколько есть высоких среди актеров?');
readln(a);
writeln('Сколько есть голубоглазых среди актеров?');
readln(b);
writeln('Сколько есть актеров блондинов?');
readln(c);
if a < b then
if a < c then writeln('Максимальное количество высоких голубоглазых блондинов: ',a)
else writeln('Максимальное количество высоких голубоглазых блондинов: ',c)
else if b < c then writeln('Максимальное количество высоких голубоглазых блондинов: ',b)
else writeln('Максимальное количество высоких голубоглазых блондинов: ',c);
<span>end.</span>
1) <span>if a > b then begin a:= b ; end else b:=a;
Вот правильный вариант еnd; был лишний так как еще одного begin не было
2)
Var s:integer;k:real;
begin
s:=255;if s mod 2=1 then begin s:= s-1 ;k:= s/2 end
else k:=s ;writeln(k)
end.
Тут у вас ; с запятой были потеряны после исправления ответ 127</span>
Компьютерная анимация — вид анимации, создаваемый при помощи компьютера. На сегодня получила широкое применение как в области развлечений, так и в производственной, научной и деловой сферах, в мультимедиа технологиях.
begin
for i:integer:=1 to 7 do
writeln(‘Семь раз отмерь, один раз отрежь’);
end.
Если скопировать С2 в С3 получится
=$A$1*A3+B3
С3=695
Ответ: 3
