Напишіть алгоритм і програму, які підраховують суму S=0.3+0.8+1.3+ ... для введеного числа k. (Тобто

Знайдіть добуток d=0.7*1.3*1.9*... для введеного числа k. (Тобто для k=1 → результатом є d=0.7; k=2 →

В колі є n осіб, в лічилці - k слів. Визначається той, хто веде у грі , наступним чином: починаємо

Знайдіть кількість всіх чисел з відрізка [a, b], що діляться і на 2, і на 7.

Знайти факторіал числа n. (Факторіал числа n позначається n! і дорівнює 1*2*3*...*n. Наприклад, 4! =1

Знайти добуток перших n непарних чисел

var a,b,c,d,e,f,x,y,z:real; begin read(a,b,c,x,y,z); d:=ax; e:=by; f:=cz; if (d>0)and(e>0)and(f

var a,b,c,x,y,z: integer; begin readln(a,b,c); y:=b div 2; z:=c div 4; if (a=z)and(a=y) then write (

var a,b,c,d,x,y: real; begin readln (a,b,c,d); x:=a/b; y:=c/d; if x>y then writeln('U pershogo

programe andrey; var x : integer; begin read(x); if odd(x) then write ('ПрАвИлЬнО') else

var a,b,x:real; begin read(a,b); x:=a/3.6; if x>b then write('Швидкість в м./сек. більша')

good, very good

var x : integer; begin read(x); if odd(x mod 10) then write (' б ') else write('a');

var s, a, s2 :real; begin read(s,a,s2); s2:=a*a; if (s)>(s2) then write('вийде здати штани в

var s, k: integer; begin read(s,k); if k>s then write ('коло можна вписати у квадрат')

var s, k: integer; begin read(s,k); if k>s then write ('коло можна вписати у квадрат')