Паскаль напечатать значение вводимого числа от 1 до 10 римскими цифрами

Question

Информатика: Паскаль напечатать значение вводимого числа от 1 до 10 римскими цифрами

People100 · Accepted Answer

Первая (N - количество чисел в исходной последовательности):

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write('Input number: ');
        readln(number);
        if (number mod 5 = 0) and (number mod 7 <> 0) then
            count := count + 1;
    end;
    writeln('Count: ',count);
    readln;
end.

Вторая:

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write('Input number: ');
        readln(number);
        if (number < 0) then
            writeln('Square of ',number,' equals ',number*number);
    end;
    readln;
end.

MOGZ ответил