profile
Опубликовано 1 год назад по предмету Информатика от Шунь

Написать программу, которая для целых чисел из диапазона [30;10] выводит на экран удвоенные значения этих чисел.

  1. Ответ
    Ответ дан Artem112

    CLS

    a:

    INPUT n

    IF n<1 OR INT(n)<>n THEN GOTO a

    DIM a(n)

    FOR i=1 TO n

    b:

    INPUT a(n)

    IF INT(a(n))<>a(n) OR a(n)<10 OR a(n)>30 THEN GOTO b

    NEXT i

    FOR i=1 TO n

    PRINT 2*a(n)

    NEXT i

  2. Ответ
    Ответ дан Alphaeus

    Program Shunn;
    uses crt;
    const m=30;
    const n=10;
    var
      i: integer;
    begin
      writeln('*** alphaues is thinking... ***');
      writeln('***          OK             ***');
      for i:=m downto n do
        writeln('Число: ',i,'  Удвоение: ',2*i);
    end.

Самые новые вопросы