Var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.
13. 1. Paint.
Ответ: Paint.
Var a,b,c: integer;
begin
writeln('a,b = '); readln(a,b);
c:=a+b;
writeln(c);
end.
Все отдельно посчитал но без таблицы, сам(а) нарисуешь все посчитал
Ещё 19 рублей прибавь к итоговой сумме и к консервам ещё 250г и их цене