Выбрать место для цветка
Обозначить его форму
Прорисовать основные детали
Прорисовать мелкие детали
5
Б А 1
В БАГЕ 1+1+1+1=4
Г А 1
Д БВ 4+1=5
Е Г 1
И Д 5
Ж ДВЕ 5+4+1=10
К ИЖЕ 10+5+1=16
Ответ:16
№6
АЕ=12
ACBFE=3+4+5+2=14
ACDFE=3+3+3+2=11
Ответ:1
А) var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln('Победил 1! Результат: ',a);
if (b>a) and (b>c) then writeln('Победил 2! Результат: ',b);
if (c>b) and (c>b) then writeln('Победил 3! Результат: ',c);
end.
Var s:string; i:integer; m:set of char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
i:=1;
while i<=length(s) do
if s[i] in m then delete(s,i,1) else begin m:=m+[s[i]]; i:=i+1; end;
writeln(s);
end.
Пример:
Введите слово:
электрификация
электрифаця
Program new
var
begin
for i =10 to 1000 do
begin
if x mod i = 7 then
written('yeah')
end;
i:=i*10
end;
end.