Var i:integer;
begin
i := 30;
while (i >= 1) do
begin
if (i mod 2 = 1) then
writeln(i);
i := i - 1;
end;
<span>end.
----------------
2)
var i, a: integer;
begin
for i:=0 to 30 do
if (i mod 2 = 1) then
a := a + i;
writeln(a);
end.
<span>------------
Удачи:)</span></span>
Это клавиши Backspace и Delete. Delete удаляет все по правую сторону от курсора, а Backspace по левую сторону.
17 килобайт
1Кбайт = 1024 байт
Ответ:
Исходник ниже
Объяснение:
program task;
var
x, sum: Integer;
begin
sum := 0;
while True do
begin
read(x);
if x = 0 then break;
if (x mod 3 = 0) and (x mod 10 = 4)
then sum := sum + x;
end;
writeln(sum);
end.
#scripdablmassive #windowsreset