1)3,478
2)6,109
3)474,094006
4)11,573
5)2242212,20299
6)753,683
1)
var s1,s2,s3,s4:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
WriteLn('s1 '+s1);
WriteLn('s2 '+s2);
WriteLn('s3 '+s3);
end.
2)
var s1,s2,s3,s4,s5:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
s5:=s1+Copy(s2,1,1)+'.'+Copy(s3,1,1)+'.';
WriteLn(s5);
end.
#include <iostream>
#include <iomanip>
using namespace std;
int f1(long int *mas, int N)//f1 для заполнения всех нечётных значений "-777"
{
int i = 0; for (int i = 0; i < N; i++)
if (mas[i] % 2 != 0)//условие, что число нечётное
mas[i] = -777;
return 0;
}
int f2(long int *mas, int N)//f2 для вывода массива
{
int i = 0;
for (int i = 0; i < N; i++)
cout << mas[i]<<" ";//вывод элементов массива
cout << endl;
return 0;
}
void main()
{
setlocale(0, "rus");
int N,k1=0,k2=0,c=0;
cout << "Введите натуральное число N" << endl;
cin >> N;
long int *p = new long int[N];//создаём динамический массив с длиной N
cin >> k1>>k2;//первые два числа
p[0] = k1; p[1] = k2;//записали в первые ячейки
for (int i = 2; i < N; i++)
p[i] = p[i-1] + p[i-2];//заполняем числами Фибоначчи
f1(p, N);//вызов функций
f2(p, N);
system("pause");//пауза в консоли.
}
Я так понимаю, в блок-схему в место, где подчёркивание, нужно вписать a + b.
Код на паскале:
var
a, b, s: Real;
begin
a := 5;
b := -3.5;
s := a + b;
writeln(s);
end.