Ответ: Соня, я вот тоже не могу решить
Объяснение:
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
for var i := 1 to 10 do
Writeln(i, ') y = ', sqrt(i));
end.
var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
два цвета <span>н по идее 16 (2^4 где 2 - количество цветов, а 4 - количество елок)</span>