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

Написать программу, которая для целых чисел из диапазона [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.

Другие вопросы
Lenusik
Математика - 6 дней назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 2 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 2 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 2 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 2 недели назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.