1. . .
Program primer;
Var st: string; c: char;
k, n, i: integer;
begin
write(stroka=); readln(st);
write(simvol=); readln(c);
n:= length(st);
k:=0;
for i:=1 to n do
if st[i]=c tnen inc(k);
writeln (k=, k);
readln;
end.
1. "2" "3" .
2. , "4".
1. . . , a.
2. *.
Program primer;
Var st: string;
n, i: integer;
begin
write(stroka=); readln(st);
n:= length(st);
for i:=1 to n do
if (st[i]>=0) and (st[i]<=9) then st[i]:=*;
writeln (st=, st);
readln;
end.
3. : a x, b y, c z.
4. . , .
1. I .. . , , (A) (D), (B) (E), , :
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
D E F G H I J K L M N O P Q R S T U V W X Y Z A B C
, ( (, ..) ).
3. 3.
Program primer; Var st1, st: string; i: integer; begin write(stroka=); readln(st); for i:=1 to length(st) do if st[i]<>3 then st1:=st1+st[i]; writeln (st1=, st1); readln; end. | Program primer; Var st: string; i: integer; begin write(stroka=); readln(st); i:=1; repeat if st[i]=3 then delete(st, i, 1) else i:=i+1; until i=length(st); writeln (st=, st); readln; end. |
5. , ASCII - 70 75.
6. , .. .
4. , .
Program primer;
Var st: string;
i: integer;
begin
write(stroka=); readln(st);
i:=1;
repeat
if (st[i]<> ) and (st[i+1]= ) then begin insert(., st, i+1); i:=i+2; end else i:=i+1;
until i=length(st);
writeln (st=, st);
readln;
end.
7. , .
8. , + -.
1. . .
|
|
5. , .
Program primer;
Var st: string;
i, x, k, s: integer;
begin
write(stroka=); readln(st);
s:=0;
for i:=1 to length(st) do
begin
val(st[i],x,k);
if k=0 then s:=s+k;
end;
write(s=,s);
readln;
end.
9. , .
10. , 3.
1. , , .
Pascal
.
.
- .
- , , .
- .
- .
- .
- , .
- ( ).
- .
- .
1. , (, , ), , . , read .
Program primer;Type Chelovek=Record Fam: String[15]; Ima: String[15]; Otch: String[15]; End;Var Klass:Array[1..5] Of Chelovek; k:Integer; Begin For k:=1 To 5 Do With Klass[k] Do Begin Writeln(' ); Readln(Fam); Writeln(' ); Readln(Ima); Writeln(' ); Readln(Otch); End; Readln;End.
- , (, , , , , ), 3 . , .
- ( ) . , .
1. , , (..., , ).
Program primer;
Var f: text;
x, y: real;
begin
assign(f,'prim.txt');
rewrite(f);
write(f, , 1, 1 );
Close(f);
end.
2. ) , y= x2 + x (0<= x<= 2, h= 0,2).
) .
Program primer;
Var f: file of real;
x, y: real;
begin
assign(f,'prim.txt');
rewrite(f);
x:=0;
repeat
y:=sqr(x)+x;
write(f,y, );
x:=x+0.2;
until x>2;
Close(f);
reset(f);
while not eof(f) do begin
read(f,y,x); writeln('x=',x:4:2,' y=',y:8:4);
end;
end.
- ) , y= 2x + 5 (0<= x<= 10, h= 0,5).
) . - ) , y= 2x2 + 3x (-2<= x<= 2, h= 0,2).
) .
3. ) , :
|
|
;
;
.
) . , .
Program pr;
Type rabotnik=record
Fio: string [20];
sklad: char;
stag: integer;
End;
Var
X: rabotnik; f: file of rabotnik;
N, i, max: integer;
Name: string [20];
Begin
Assign(f,pr.txt);
Rewrite(f);
Write(n=); Readln (n);
For i:=1 to n do
Begin
Write(fio:); Readln(x.fio);
Write(sklad:); Readln(x. sklad);
Write(stag:); Readln(x. stag);
Write(f,x);
End;
Close(f);
{******************}//
Assign(f,pr.txt);
Rewrite(f);
Max:=0;
While Not EOF(f) do
Begin
Readln(f,x);
Writeln(x.fio: 20, x. sklad:3, x. stag:5);
If x. stag >max then
Begin
Max:=x. stag;
Name:=x.fio;
End;
End;
Writeln(max stag -, max, name);
Close(f);
Readln;
End.
- ) , :
;
;
.
) . .
- ) , ;
;
;
.
) . 9- .