1.А
2.В
3.А
4.А
5.А,В
6.Б,Г
7.
8.А
9.А
10.Г
11.
12.В
<span>таблица значений функций
</span> x: -1 7 3 0
у: 4 5 1 5
//Дам блок-схему и код на Паскале
//Pascal ABC.NET v3.0 сборка 1111
var
r,v,s:real;
begin
readln(r);
v:=4/3*pi*power(r,3);
s:=3/4*pi*sqr(r);
writeln('V=',v,' S=',s);
end.
#include <stdio.h>
int main()
{
char c, FIO[10];
int i=0, f=0;
printf("name: ");
scanf("%c",&c);
if (c>'Z') FIO[i]=c-32; else FIO[i]=c;
FIO[++i]='.';
while (c != '\n'){
scanf("%c",&c);
if (f) {
if (c>'Z') FIO[++i]=c-32; else FIO[++i]=c;
FIO[++i]='.';
}
f = c==' ';
}
printf("%s", FIO);
return 0;
}
Пример:
<span>name: sidorov ivan petrovich
S.I.P.</span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('Вводите элементы матрицы построчно');
var a:=new real[n,m];
var b:=new real[n];
for var i:=0 to n-1 do begin
b[i]:=0;
for var j:=0 to m-1 do begin
Read(a[i,j]);
b[i]+=Sqr(a[i,j])
end;
b[i]:=Sqrt(b[i])
end;
Writeln('Сформированный вектор');
b.Println;
end.
<u>Пример</u>
Количество строк в матрице: 4
Количество столбцов в матрице: 3
Вводите элементы матрицы построчно
3.4 5.1 8
-1 0 1
-5.34 1.777 5
3 4 5
Сформированный вектор
10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548