#include <stdio.h>
#include <math.h>
#include <stdlib.h>
int main() {
float a_1, a_2, a_3, x;
printf ("vvod a_1, a_2, a_3\n");
scanf ("%f %f %f",&a_1,&a_2,&a_3);
printf ("Proizved = %f\n",a_1*a_2*a_3);
printf ("Sred geometr = %f\n",pow(a_1*a_2*a_3, 1.0/3));
printf ("vvod x\n");
scanf ("%f",&x);
printf ("Po form: %f\n",exp(1.0/(3*x))-abs(3*x*x-pow(pow(x+1,4)+log((pow(x,4)+4)/(pow(x,2)+2)),1.0/5)));
int a;
printf ("vvod a\n");
scanf ("%d",&a);
int c=a%10*10+a/10;
printf ("%d",c);
system ("pause");
}
Пример:
<span>vvod a_1, a_2, a_3
2 3 5
Proizved = 30.000000
Sred geometr = 3.107233
vvod x
4
Po form: -42.913096
vvod a
71
17</span>
Отношения между объектами - диаграммы Эйлера-Венна
Объект-фотографии
Стоимость объекта -числа
Р. об.- эскиз
Ф. р. об. - чертежа
Эл. с. об. -схемы
Цв. об.-рисунка
<em>// PascalABC.NET 3.2, сборка 1334 от 12.11.2016</em>
begin
var n:=ReadInteger('n=');
var a:=SeqRandom(n,-20,20).Select(e->real(e)).ToArray;
a.Println;
var b:=a.Where(x->x=0).Concat(a.Where(x->x<0)).ToArray;
a:=b.Concat(a.Where(x->x>0)).ToArray;
a.Println;
end.
Пример
n= 20
-16 1 16 -11 20 -6 -11 15 0 -9 -14 0 4 -4 2 14 19 7 -14 4
0 0 -16 -11 -6 -11 -9 -14 -4 -14 1 16 20 15 4 2 14 19 7 4
PascalABC.NET
Программа сработает некорректно если слова будут разделены несколькими пробелами или строка будет заканчиваться пробелом
const c = ' ';
var
s : string;
k,p : integer;
begin
writeln ('Введите строку');
readln (s);
k := -1;
p := 1;
if (s <> '') and (s <> ' ') then
begin
while p <> 0 do
begin
k := k +1;
p := PosEx (c,s,p+1);
end;
writeln (k+1,' word')
end
else
writeln ('error string');<span>
end.</span>