Var i:integer;
begin
i := 30;
while (i >= 1) do
begin
if (i mod 2 = 1) then
writeln(i);
i := i - 1;
end;
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.
------------
Удачи:)

0 0

3 года назад

Прочитать ещё 2 ответа

Свойства. Имя файла Текст.ред. Рисунок Презентац Тип файла ? ? ? Приложение. ? ? ? Размещение ? ? ? Размер. На диске Создан Изм

srtgei [14]

Тип afk
Cs go
Ban от тиммейтов)

0 0

4 года назад

Напишите как расшифровать код цезаря

А В

Шифр Цезаря — это вид шифра подстановки, в котором каждый символ в открытом тексте заменяется символом, находящимся на некотором постоянном числе позиций левее или правее него в алфавите.
Шифр Цезаря со сдвигом на 3:
A заменяется на D
B заменяется на E
и так далее
Z заменяется на C.

0 0

4 года назад