Объяснение:
program XandY;
const
rndlim=50;
var
x, y : integer;
begin
x:=random(rndlim);
y:=random(rndlim);
Writeln('x=',x,' y=', y);
Writeln('x+y = ',x+y);
Writeln('x-y = ',x-y);
Writeln('x*y = ',x*y);
Writeln('x^2 + y^2 = ',sqr(x)+sqr(y));
end.
Запуск:
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
16 lines compiled, 0.2 sec
x=27 y=29
x+y = 56
x-y = -2
x*y = 783
x^2 + y^2 = 1570
Объяснение:
program XandY;
const
rndlim=50;
var
x, y : integer;
begin
x:=random(rndlim);
y:=random(rndlim);
Writeln('x=',x,' y=', y);
Writeln('x+y = ',x+y);
Writeln('x-y = ',x-y);
Writeln('x*y = ',x*y);
Writeln('x^2 + y^2 = ',sqr(x)+sqr(y));
end.
Запуск:
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
16 lines compiled, 0.2 sec
x=27 y=29
x+y = 56
x-y = -2
x*y = 783
x^2 + y^2 = 1570
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
Write('Введите символ: ');ReadLn(C);
Write('Символ "',C,'" встречается на позициях:');
For i:= 1 to Length(S) do
if S[i] = C then Write(' ',i)
End.
Пример работы программы:
Введите строку: 12345789654621685798546323312125
Введите символ: 5
Символ "5" встречается на позициях: 5 10 17 21 32
С проверкой:
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
Write('Введите символ: ');ReadLn(C);
i:=1;
While (S[i] <> C)and(i<Length(S)) do
i:=i+1;
if S[i] = C then
Begin
Write('Символ "',C,'" встречается на позициях:');
For i:= i to Length(S) do
if S[i] = C then Write(' ',i)
End
else
WriteLn('Данный символ в строке не встречается')
End.
Пример работы программы:
Введите строку: 12312123
Введите символ: 4
Данный символ в строке не встречается