Плиз напомните как... вывести число от 1 до x ... по возрастанию.. и убыванию

Знания

Информатика

1 ответ:

шон3 года назад

0 0

Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b

Читайте также

Помогите решить пожалуйста, pascalДаны 5 натуральных чисел: a1,a2,a3,a4,a5Определить количество чётных и нечетных чисел

xblack [21]

<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var (ke,ko):=(0,0);

loop 5 do

if ReadInteger.IsOdd then Inc(ko)

else Inc(ke);

Writeln('Четных ',ke,', нечетных ',ko)

end.

0 0

1 год назад

До чего ж прогресс дошел!!! Некоторые вещи становятся тоньше, но крепче. Например, как строят некоторые дома – слышно, о чем сос

Elennaa

Чтобы в другое время тебя этот ужасный звук не беспокоил: все вместе спустили и всем хорошо)))

0 0

4 года назад

Переведите в паскаль, пожалуйста, очень срочно

Елена Приходько [10]

Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
    begin
      writeln('Мой ход. Я возьму', 4 - x);
      n := n - (4 - x);
    end
end
    if n <= 0 then
      writeln('Вы проиграли!')
    else
      goto 1;
    end
end.

0 0

4 года назад

Помогите сделать алгоритм проверки числа на то, есть ли оно 2 значным или 3 значным.

Sergeev9

Var n : integer;
begin
readln (n);
if (n > -100) and (n < 100) then write ('Это число двузначное');
if (n > -1000) and (n < 1000) then write (Это число трёхзначное);
end.

0 0

4 года назад

Составьте чайнворд из 4 слов в каждом слове должно быть 4 буквы

Hmesy [14]

ЦирКраНебОвал
цирк кран небо овал

0 0

4 года назад