:) 1)вывести на экран натуральные не четные числа от 50 до 40. 2)найти произведение последовательных натуральных чисел от

Question

Информатика: :) 1)вывести на экран натуральные не четные числа от 50 до 40. 2)найти произведение последовательных натуральных чисел от 7 до 12.

dnaknaf · Answer

// PascalABC.Net v3.1var   n,p: integer; begin   // 1. вывод нечетных от 50 до 40   n:=51;   while n =41 do begin      writeln(n);     n:=n-2;   end;   // 2. Произведение от 7 до 12   p:=1;   n:=7;   while n =12 do begin     p:= p* n;     n :=n+1;   end;   writeln(p); end....

:) 1)вывести на экран натуральные не четные числа от 50 до 40. 2)найти произведение последовательных натуральных чисел от 7 до 12.

Популярные вопросы