// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var m:=ArrRandom(16,-99,99); m.Println;
var s:=m.Where((e,i)->i.IsEven and (e>0));
Writeln('Ср.геом. положительных на нечетных местах ',
Power(s.Aggregate(1.0,(p,e)->p*e),1/s.Count):0:4)
end.

<u><em>Тестовое решение</em></u>
12 58 -54 77 -68 -41 -79 -91 -18 -57 98 81 28 97 33 79
Ср.геом. положительных на нечетных местах 32.2864

0 0

4 года назад

Помогите написать программу на языке с++, которая выводила бы на экран фигуру в форме сердца

055742813

#include<iostream>
using namespace std;
int main() {
printf("1 1 1 1 1 1 1 1 1 1\n");
printf("1 1 0 1 1 1 1 0 1 1\n");
printf("1 0 1 0 1 1 0 1 0 1\n");
printf("0 1 1 1 0 0 1 1 1 0\n");
printf("0 1 1 1 1 1 1 1 1 0\n");
printf("1 0 1 1 1 1 1 1 0 1\n");
printf("1 0 1 1 1 1 1 1 0 1\n");
printf("1 1 0 1 1 1 1 0 1 1\n");
printf("1 1 0 1 1 1 1 0 1 1\n");
printf("1 1 1 0 1 1 0 1 1 1\n");
printf("1 1 1 1 0 0 1 1 1 1\n");
getchar();
return 0;
}

0 0

4 года назад

укажите результат редактирования текста знание-силапомогите плизз!!!!!!!!!!!!!

Гражданин52

Укажите результаты редактирования текста, если нажата клавиша ENTER:

Знание - | сила

А) Знание - сила.

Б) Знание - ила.

В) Знание -сила.

Ответ: a) Знание - сила.

0 0

4 года назад

Составить программу, переводящую секунды в часы и минуты то есть алгоритм действий

Goozh

var a:real;
begin
readln(a);
a:=a/60; writeln('a=',a,'мин');
a:=a/60; writeln('a=',a,'час');
readln;
end.

0 0

3 года назад