Написать программу, которая для целых чисел из диапазона [30;10] выводит на экран удвоенные значения этих чисел.
Написать программу, которая для целых чисел из диапазона [30;10] выводит на экран удвоенные значения этих чисел.
Гость
Ответ(ы) на вопрос:
Гость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
Гость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.
Не нашли ответ?
Похожие вопросы