// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadInteger3('a,b,c =');
var k:= ReadInteger('k =');
var (x,y,z):=ReadInteger3('x,y,z =');
Writeln(min(x div(a*k),min(y div(b*k), z div(c*k))));
end.
<u>Пример:</u>
a,b,c = 2 3 4
k = 2
x,y,z = 4 8 19
1
Данная программа написана для Pascal:
var s:string;
i,k:integer;
begin
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='к' then k:=k+1;
if k=0 then writeln('ни разу') else writeln(k);
end.
uses crt;
var
n,k,i:integer;
r1,r2:real;
p: array[1..1000] of real;
begin
k:=0;
write('n='); read(n);
writeln('P[n]:');
for i:=1 to n do
read(p[i]);
write('r1='); read(r1);
write('r2='); read(r2);
for i:=1 to n do
begin
if (r1<p[i]) and (p[i]<r2) then k:=k+1;
end;
writeln;
write('Внутри ',k,' точки.');
end.
Ручная, механическая, электрическая, электронная, компьютерная
<span>Пример 1. Квадраты чисел от 2-х до 10-и.
</span>for x:=2 to 10 do WriteLn(x*x);
<span>Пример 2. Латинский алфавит.
</span>for ch:='A' to 'Z' do Writeln(ch);
<span>Пример 3. Использование цикла с downto.
</span>for i:=10 downto 1 do WriteLn(i);
<span>Пример 4. Использование составного оператора.
</span><span>for x:=1 to 10 do begin
y:=2*x+3;
WriteLn('f(',x,')=',y);
end;
</span>
