v - объём цилиндрачисло пи = 3,14язык программирования: паскальvarv, r, h : real; beginreadln (r); readln (h); v : = 3.14 * sqr(r) * h; writeln (v)end.
Ответ дал: Гость
на паскале:
program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.
Ответ дал: Гость
число-общее
столица росси - единичное
учебник - общее
житель москвы - общее
столица - общее
самая высокая гора - единичное
пушкин - единичное
сказочный персонаж - общее
баба яга- единичное
Ответ дал: Гость
5 6)input ndim a(n)for i=1 to n input a(i)next ifor i=1 to n for j=i to n if a(i)> a(j) then 'поменяешь больше на меньше и будет сортировать в другую сторону t=a(i) a(i)=a(j) a(j)=t end if next jnext ifor i=1 to n print a(i); next iдля массива а опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. результаты расчета и массив вывести на экран.input ndim a(n)s=0p=1for i=1 to n input a(i)next ifor i=1 to n if a(i)> 0 then p=p*a(i) if a(i)< 0 then s=s+a(i)*a(i) if a(i)=0 then a(i)=12next ifor i=1 to n print a(i); next iprintprint sprint pизвестны данные о количестве осадков, выпавших за каждый день января. найти общее число осадков, выпавших по нечетным числам месяца.n=31dim a(n)s=0for i=1 to n input a(i)next ifor i=1 to n if i mod 2 =0 then s=s+a(i)next iprintprint sдля массива а. найти количество положительных, сумму нечетных и произведение чисел, кратных в. результаты расчетаа и массив вывести на экран.input ninput bdim a(n)s=0p=1k=0for i=1 to n input a(i)next ifor i=1 to n if a(i)> 0 then k=k+1 if i mod 2 = 1 then s=s+a(i) if a mod b = 0 then p=p*a[i]next ifor i=1 to n print a(i); next iprintprint sprint pprint b
Популярные вопросы