Program massivy;
var array1: array [1..10] of integer;
i, b:integer;
begin
for i:=1 to 10 do
array1[i]:=random(-10, 10);
for i:=1 to 4 do begin
for b:=1 to 4 do
if array1[b] > array1[b+1] then
swap(array1[b], array1[b+1]);
end;
for i:=5 to 9 do begin
for b:=5 to 9 do
if array1[b] < array1[b+1] then
swap(array1[b], array1[b+1]);
end;
for i:=1 to 10 do
writeln(array1[i]);
end.
#include <iostream>
#include <conio.h>
using std::cout;
using std::cin;
using std::endl;
int F(int N);
int main()
{
int N;
cin >> N;
cout << F(N); я не понял, по условию сказано "первого, большего введенному m" если надо найти значение следующего после введенного, то вместо F(N) надо F(N+1) мол если ты ввел 14, то тебе нужно найти значение следующего(15), как-то так.
_getch();
}
int F(int N)
{
if (N >= 2)
return F(N - 1) + F(N - 2);
else
return N;
}
Поскольку размер файла 128 Мб больше чем 32 Мб в 4 раза, то и время его передачи будет больше в 4 раза, составляя 8*4=<u>32 с.</u>
№3
program fofgogjoj;
var
a,b,c,S,P:real;
begin
Writeln('Введите длину катета a');
Readln(a);
Writeln('Введите длину катета b');
Readln(b);
c:=sqrt(a*a+b*b);
P:=a+b+c;
S:=(1/2)*a*b;
Writeln('P=', P:0:2);
Writeln('S=', S:0:2);
end.