ответ на первый вопрос - второе
1)попросить маму пришить пуговицу
2)напомнить маме пришить пуговицу
3)ещн раз попросить маму пришит пуговицу
4)расплакаться
5)получить готовый результат
Попробуй змейкой сначала вправо до конца потом вниз до конца и та по круговой и всё закрасишь понял?
//1
var i: byte;
begin
for i := 2 to 20 do
writeln('Цена за ',i,' = ', 20.4 * i);
end.
//2
var i: byte;
Price, TotalPrice: real;
begin
Price := 20.4;
for i := 2 to 20 do
begin
TotalPrice := Price * i;
writeln('Цена за ',i,'шт. = ', TotalPrice);
end;
end.
===== PascalABC.NET =====
function СуммаЦифрЧетная(n: integer): boolean;
begin
var s := 0;
while n > 0 do
begin
s := s + n mod 10;
n := n div 10;
end;
Result := s.IsEven
end;
begin
var n := ReadInteger('n =');
var a:= ArrRandom(n, 0, 300);
a.Println;
a := a.Where(p -> СуммаЦифрЧетная(p)).ToArray;
a.Println
end.