var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.
var s1,s2: string; p:integer;
begin
writeln('Введите фамилию и имя:');
readln(s1);
p:=pos(' ',s1);
s2:=copy(s1,p+1,1)+'. '+copy(s1,1,p-1);
writeln(s2);
end.
Пример:
Введите фамилию и имя:
Иванов Петр
П. Иванов
{
написано на PascalABC.NET но должно работать во всех Паскалях.
Скриншот результата в приложении
}
PROGRAM power_recursive;
var
n,p:word;
function power(num:word; pow:byte):word;
begin
if (pow<2) then
power:=num
else
power:=num*power(num, pow-1);
end;
BEGIN
write('Введите основание степени : '); readln(n);
write('Введите показатель степени >0 : '); readln(p);
writeln( power(n,p) )
END.
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button1Click(Sender: TObject);
var
k,i,j:integer;
begin
k:=10;
for i:=1 to 90 do begin
if (k mod 7)=0 then begin
j:=j+1;
stringgrid1.cells[1,i]:=inttostr(k);
end;
k:=k+1;
end;
label1.Caption:=inttostr(j);
end;