Тип .....................................
Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
<span>end.</span>
//PascalABC.NET 3.2 сборка 1318
Var
x1,x2,y1,y2:integer;
a:real;
begin
readln(x1,y1,x2,y2);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln('d=',a*sqrt(2));
writeln('P=',a*4);
writeln('S=',sqr(a));
end.
Пример ввода:
2 2
2 3
Пример вывода:
d=1.4142135623731
P=4
S=1
Начало
• Объявление целочисленной переменной со значением 1
• Объявление переменной с плавающей точкой со значением 1.4
• Присвоение значения переменной а равное 1.4 * 1 + (1/1.4) [2.1142857142857143]
• k?
• Вывод а (2.1142857142857143)
Конец
Имена процедур для Delphi - после //
var f:text; // TextFile
c:char; s:string; i:integer;
begin
Randomize;
assign(f,'data.pas'); // AssignFile
reset(f);
s:='';
c:='0';
while c<>' ' do
begin
read(f,c);
s:=s+c;
end;
for i:=length(s)-1 downto 1 do write(s[i]);
writeln;
close(f); // CloseFile
end.
Пример:
Файл data.pas:
130384565486 10254 658
Результат работы программы:
684565483031