Помогите пожалуйста. Бабушка прислала Ивану посылку яблоками и грушами. , остальные- маленькими. По цвету плоды тоже различались
Помогите пожалуйста. Бабушка прислала Ивану посылку яблоками и грушами. , остальные- маленькими. По цвету плоды тоже различались: часть плодов было желтого цвета , остальные - зеленого. Среди плодов не было ни маленьких груш ,ни маленьких зеленых яблок. Яблок было 25, а груш - 17. Больших плодов было 32. Желтых плодов было 28. Зеленых яблок было на 2 больше, чем зеленых груш. Иван угостил этими плодами своих друзей.БОЛЬШЕ ВСЕГО РЕБЯТАМ ПОНРАВИЛИСЬ БОЛЬШИЕ ЖЕЛТЫЕ ЯБЛОКИ. СКОЛЬКО БЫЛО ТАКИХ ЯБЛОК?
Больших жёлтых яблок было 7 штук. 1.32+17=42. Всего плодов 2.42-32=10.маленк. желт. яблок. 3.42-28=14.- большие зел.плоды 4.<span>Яблок на 2 больше, чем груш — 8 яблок, 6 груш. 5. 25 яблок, из них больш. зел. 8, маленк. жёлт. 10. 6.</span><span> 25-8-10=7.</span>
Var a,c1,c2 integer;
b: bool;
begin
b:=true;
writeln("Введите четырехзначное число ");
readln(a);
c1:=a mod 10;
a:=a div 10;
while(a>0) do begin
c2:=a mod 10;
a:=a div 10;
if c1 <> c2 then
b:= false;
end;
if b=true then writeln("Все цифры данного числа равны")
else writeln("Цифры данного числа различны");
end.
Выбираешь объект круг и зажимая кнопку Shift рисуешь круг, он получиться идеальным С боков будут точки, по ним проводишь прямую, ненужную часть стираешь