Program fantscrin;
Var a: array [1..10] of integer;
i,k,g:integer;
Begin
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
write(a[i], ' ');
writeln('');
write('К = '); readln(k);
g:=0;
for i:=1 to 10 do
if(a[i] = k) then g:=i;
writeln(g);
End.
<u>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var r:integer;
var x:real;
while true do begin
Write('Выберите тип единицы длины:',NewLine,
'1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр, 0-выход.' );
Read(r);
if r=0 then begin Writeln('Пока!'); Exit end;
Write('Введите длину в этой единице: '); Read(x);
case r of
1:Writeln(x, ' дм = ',10*x,' см = ',100*x,' мм = ',x/10,' м = ',
x/10000,' км');
2:Writeln(x, ' км = ',1000*x,' м = ',10000*x,' дм = ',100000*x,' см = ',
x*1000000,' мм');;
3:Writeln(x, ' м = ',10*x,' дм = ',100*x,' см = ',x*1000,' мм = ',
x/1000,' км');
4:Writeln(x, ' мм = ',x/10,' см = ',x/100,' дм = ',x/1000,' м = ',
x/1000000,' км');
5:Writeln(x, ' cм = ',10*x,' мм = ',x/10,' дм = ',x/100,' м = ',
x/100000,' км');
end
end
end.
<span><span /><span><span>
a
b
c
f1
f2
f3
f4
f5
</span><span>
0
0
0
1 0 0 0
1
</span><span>
0
0
1
1
0 0 1
1
</span><span>
0
1
0
1 0 0
0 1
</span><span>
0
1
1
1 1
0 1 1
</span><span>
1
0
0
1 0
1
1 0
</span><span>
1
0
1
1
0 1 1
1
</span><span>
1
1
0
1
0 0 1 1
</span><span>
1
1
1
1 1 1
1 0
</span></span></span>
Var x,y:real;
begin
Writeln ('введите x',x);
readln (x);
y:=(10*x+sqrt(x)-1)*(10*x+1);
writeln ('x=',x);
end.
Program Archi;
uses crt;
var
x:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите x: ');
readln(x);
writeln('При х=',x,'');
writeln('3sin(sqrt(3))+0,35x-3,8 = ',3*sin(sqrt(3))+0.35*x-3.8:0:3);
end.