var
summ, c:integer;
begin
write('Введите число '); readln(c);
summ := c mod 10 + (c div 10) mod 10 + c div 100;
writeln('Сумма цифр числа ', c , ' равна ', summ);
end.
program crash;
var n, k: integer;
r: real;
begin
write('n = ');
readln(n);
k := 0;
r := 0;
while n > 0 do
begin
k := k + 1;
r := r + (n mod 10) / (k * k);
n := n div 10
end;
writeln('r = ', r:0:14);
readln
end.
У меня получилось так (1 -- закрашено, 0 -- не закрашено)
100010001
001000100
100010001
001000100
100010001
Итого: 13 клеток
У первых название двухкрылки,состав:крылья,усы,брюшко,лапки действия:летать,шевелить усами,охотиться.У вторых название двуххвостки состав: хвосты,усы,лапки,брюшко,крылья действия тоже самое что и у первых