Партнерка на США и Канаду по недвижимости, выплаты в крипто

  • 30% recurring commission
  • Выплаты в USDT
  • Вывод каждую неделю
  • Комиссия до 5 лет за каждого referral

Исполнители: Крючков, Кудинов. 2004г.

Задача 1. Составить программу вывода на экран первого и последнего символов текстовой переменной

Задача 2. Составить программу вывода текстовой переменной в обратном порядке

Basic

Pascal

Basic

Pascal

input a$

print left$(a$,1)

print right$(a$,1)

program zadacha1;

uses crt;

var a:string;

L:integer;

begin

writeln('Stroka ');

read(a);

L:=length (a);

write (copy(a,1,1));

write (copy(a, L,1));

readkey;

end.

======================

program zadacha1;

uses crt;

var a:string;

L:integer;

begin

writeln('Stroka ');

read(a);

L:=length (a);

write (a[1]);

write (a[L]);

end.

input s$

n$=""

l=len(s$)

for i=l to 1 step -1

n$=n

Исполнители: Крючков, Кудинов. 2004г.

Задача 1. Составить программу вывода на экран первого и последнего символов текстовой переменной

Задача 2. Составить программу вывода текстовой переменной в обратном порядке

Basic

Pascal

Basic

Pascal

input a$

print left$(a$,1)

print right$(a$,1)

program zadacha1;

uses crt;

var a:string;

L:integer;

begin

writeln('Stroka ');

read(a);

L:=length (a);

write (copy(a,1,1));

write (copy(a, L,1));

readkey;

end.

======================

program zadacha1;

uses crt;

var a:string;

L:integer;

begin

writeln('Stroka ');

read(a);

L:=length (a);

write (a[1]);

write (a[L]);

end.

input s$

n$=""

l=len(s$)

for i=l to 1 step -1

n$=n$+mid$(a$,I,1)

next i

print s$

program zadacha2;

uses crt;

var s, n:string;

I, L:integer;

begin

writeln('Stroka ');

read(s);

n:='';

l:=length (s);

for i:=L downto 1 do

n:=n+s[I];

write (n);

readkey;

end.

Задача 3. Подсчитать количество «а» и «б» в текстовой переменной

Задача 4. Составить программу вывода элементов массива в обратном порядке.

INPUT "Stroka ", s$

L = LEN(s$)

ac = 0

bc = 0

FOR i = 1 TO L

IF MID$(s$, i, 1) = "a" THEN ac = ac + 1

IF MID$(s$, i, 1) = "b" THEN bc = bc + 1

NEXT i

PRINT ac, bc

Program zadacha3;

Uses crt;

Var s:string;

ac, bc, I,L:integer;

begin

write(‘Vvedite stroku: ‘);

read(s);

L:=length(s);

ac:=0; bc:=0;

for I:=1 to L do

begin

if s[I]=’a’ then

ac:=ac+1;

if s[I]=’b’ then

bc:=bc+1;

end;

writeln(ac);

writeln(bc);

end.

DIM M(5)

FOR I = 1 TO 5

INRUT M(I)

NEXT I

FOR I = 5 TO 1 STEP -1

PRINT M(I)

NEXT I

program zadacha4;

uses crt;

var

m:array [1..5] of integer;

i, sn:integer;

s:string;

begin

writeln('Vvod massiva');

for i:=1 to 5 do

begin

str(i, s);

write('Element '+s+' ');

read (m[i]);

end;

writeln;

for i:=5 downto 1 do

writeln(m[i]);

readkey;

end.

Задача 5. Составить программу нахождения минимального значения и суммы элементов одномерного массива.

Задача 6. Составить программу нахождения минимального значения и суммы элементов двумерного массива.

DIM M(5)

FOR I = 1 TO 5

INPUT M(I)

NEXT I

MIN = M(1)

S = 0

FOR I = 1 TO 5

IF M(I)<MIN THEN MIN = M(I)

S = S + M (I)

NEXT I

PRINT MIN

PRINT S

Programm zadacha5;

Uses crt;

Var m:array [1..5] of integer;

S1: string;

s, i, min: integer;

begin

writeln('Vvod massiva');

for i:= 1 to 5 do

begin

str(i, s1);

write('Element '+s1+' ');

read (m[i]);

end;

min:= m[1];

s:= 0;

for I:= 1 to 5 do

begin

s:= s + m[I];

if m[I] < min then

min:= m[I];

end;

writeln (min);

writeln (s);

end.

DIM M(4,4)

FOR I = 1 TO 4

FOR J = 1 TO 4

INPUT M(I, J)

NEXT J

NEXT I

MIN = M(1,1)

S = 0

FOR I = 1 TO 4

FOR J = 1 TO 4

IF M(I, J)<MIN THEN

MIN = M(I, J)

END IF

S = S + M (I, J)

NEXT J

NEXT I

PRINT MIN

PRINT S

Programm zadacha6;

Uses crt;

Var m:array [1..4,1..4] of integer;

s, i, j, min: integer;

s1,s2:string;

begin

writeln('Vvod massiva');

for i:= 1 to 4 do

for j:= 1 to 4 do

begin

str(i, s1);

str(j, s2);

write('Element '+s1+’;’+s2+' ');

read (m[i, j]);

end;

min:= m[1,1];

s:= 0;

for I:= 1 to 4 do

for j:= 1 to 4 do

begin

s:= s + m[i, j];

if m[i, j] < min then

min:= m[i, j];

end;

writeln (min);

writeln (s);

end.

Copyright© 2004 K-Square corp.

All rights reserved.

 mid$(a$,I,1)

next i

print s$

program zadacha2;

uses crt;

var s, n:string;

I, L:integer;

begin

writeln('Stroka ');

read(s);

n:='';

l:=length (s);

for i:=L downto 1 do

n:=n+s[I];

write (n);

readkey;

end.

Задача 3. Подсчитать количество «а» и «б» в текстовой переменной

Задача 4. Составить программу вывода элементов массива в обратном порядке.

INPUT "Stroka ", s$

L = LEN(s$)

ac = 0

bc = 0

FOR i = 1 TO L

IF MID$(s$, i, 1) = "a" THEN ac = ac + 1

IF MID$(s$, i, 1) = "b" THEN bc = bc + 1

NEXT i

PRINT ac, bc

Program zadacha3;

Uses crt;

Var s:string;

ac, bc, I,L:integer;

begin

write(‘Vvedite stroku: ‘);

read(s);

L:=length(s);

ac:=0; bc:=0;

for I:=1 to L do

begin

if s[I]=’a’ then

ac:=ac+1;

if s[I]=’b’ then

bc:=bc+1;

end;

writeln(ac);

writeln(bc);

end.

DIM M(5)

FOR I = 1 TO 5

INRUT M(I)

NEXT I

FOR I = 5 TO 1 STEP -1

PRINT M(I)

NEXT I

program zadacha4;

uses crt;

var

m:array [1..5] of integer;

i, sn:integer;

s:string;

begin

writeln('Vvod massiva');

for i:=1 to 5 do

begin

str(i, s);

write('Element '+s+' ');

read (m[i]);

end;

writeln;

for i:=5 downto 1 do

writeln(m[i]);

readkey;

end.

Задача 5. Составить программу нахождения минимального значения и суммы элементов одномерного массива.

Задача 6. Составить программу нахождения минимального значения и суммы элементов двумерного массива.

DIM M(5)

FOR I = 1 TO 5

INPUT M(I)

NEXT I

MIN = M(1)

S = 0

FOR I = 1 TO 5

IF M(I)<MIN THEN MIN = M(I)

S = S + M (I)

NEXT I

PRINT MIN

PRINT S

Programm zadacha5;

Uses crt;

Var m:array [1..5] of integer;

S1: string;

s, i, min: integer;

begin

writeln('Vvod massiva');

for i:= 1 to 5 do

begin

str(i, s1);

write('Element '+s1+' ');

read (m[i]);

end;

min:= m[1];

s:= 0;

for I:= 1 to 5 do

begin

s:= s + m[I];

if m[I] < min then

min:= m[I];

end;

writeln (min);

writeln (s);

end.

DIM M(4,4)

FOR I = 1 TO 4

FOR J = 1 TO 4

INPUT M(I, J)

NEXT J

NEXT I

MIN = M(1,1)

S = 0

FOR I = 1 TO 4

FOR J = 1 TO 4

IF M(I, J)<MIN THEN

MIN = M(I, J)

END IF

S = S + M (I, J)

NEXT J

NEXT I

PRINT MIN

PRINT S

Programm zadacha6;

Uses crt;

Var m:array [1..4,1..4] of integer;

s, i, j, min: integer;

s1,s2:string;

begin

writeln('Vvod massiva');

for i:= 1 to 4 do

for j:= 1 to 4 do

begin

str(i, s1);

str(j, s2);

write('Element '+s1+’;’+s2+' ');

read (m[i, j]);

end;

min:= m[1,1];

s:= 0;

for I:= 1 to 4 do

for j:= 1 to 4 do

begin

s:= s + m[i, j];

if m[i, j] < min then

min:= m[i, j];

end;

writeln (min);

writeln (s);

end.

Copyright© 2004 K-Square corp.

All rights reserved.