Var x,y : real;
function F(x:real):real;
begin
if x>0 thenF:=(x*x*x-(5*x))/18
else
F:=(x*x-(6*x))+15;
end;
begin
read(x);
y:=F(x);
Writeln(y);
end.
program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.
#include <cstdlib>
#include <iostream>
#include <cstring>
using namespace std;
void Poly(int nmb) {
char s[20]="",st[20];
itoa(nmb,st,10);
int k=strlen(st);
for (int i=0; i<k; i++) s[i]=st[k-i-1];
if (strcmp(s,st)==0) cout<<"number: "<<nmb<<" palindrom"<<endl;
else { k=atoi(s); nmb+=k; Poly(nmb); }
}
int main(){
int nn;
cout<<"number: "; cin>>nn;
Poly(nn);
system("pause");
return 0;
}
<span>
</span>
1. А2=15/5=3
В2=15-3*5=0
А3=3+5^2=28
В3-0/5+28=28
Ответ: А3=28, В3=28;
2. а) А2=3+6=9
А3=5+1=6
С1=3
С2=(9+6+5+4)/4=24/4=6
С3=3+6=9
Ответ: С1=3, С2=6, С3=9
б) А1=2+3=5
А2=2
А3=7+1=8
С1=5+2=7
С2=8
С3=(7+8)/2=7,5
Ответ: С1=7, С2=8, С3=7,5;
3. В прикрепленных.
4. 1) 25-18=7 - средняя стрельба
2) 25-15=10 - средняя скорость
3) 7-5=2 - средняя стрельба, высокая скорость
4) 10-5=5 - средняя скорость, высокая стрельба
5) 25-5-2-5=13 - высокая скорость, высокая стрельба.
Ответ: 13.
Кажется так, но точно не уверенна
111010