Вычислить произведение квадратов чисел от 1 до N. Значение N вводится с клавиатуры (<9).
Паскаль . Цикл For. БЫСТРЕЕ​

объяснение:

робочою книгою; b. робочим аркушем; c. документом

14. принциповою відмінністю електронної таблиці від звичайної є:

a. можливість автоматичного перерахунку за формулами даних при зміні вихідних;

b. можливість обробки даних, структурованих у вигляді таблиці;

c. можливість наочного представлення зв'язків між опрацьовуваними даними;

d. можливість обробки даних, представлених у рядках різного типу.

15. вираз 3(а1+в1): 5(2в1-3а2), записаний у відповідності до правил, прийнятих в

і, в електронній таблиці має вигляд:

а) 3*(а1+в1)/(5*(2*в1-3*а2)); б) 3*(а1+в1)/5(2в1-3а2);

в) 3(а1+в1): 5*(2в1-3а2); г) 3(а1+в1)/(5(2в1-

program raf105;

var i,j,del:integer;

begin

for i:=10 to 99 do

begin

 del:=0;

 for j:=1 to i do

 begin

   if (i mod j)=0

     then del:= del+1;

 end;

 if del=3

   then writeln(i);

end;  

end.

program raf105;

var a,b,c:integer;

x:boolean;

begin

write('Введите число: ');

readln(a);

write('Введите искомую цифру: ');

readln(c);

while a<>0 do

begin

 b:= a mod 10;

 if x=false

   then x:= b=c;

 a:= (a-b) div 10;

end;

if x

 then writeln('В ведённом числе есть искомая цифра')

 else writeln('В ведённом числе нет искомой цифры');

end.

a) 2

b) 1

c) 0

d) 1

e) бесконечно

Язык программирования PascalABC