var a, b, c, n: integer;
begin
readln(a, b, c);
if a > b then n:= b else n:= a;
if n > c then n:= c;
writeln(n);
end.
Ответ:
program ideone;
uses SysUtils;
function WordsCount(s: string): integer;
var
i, count: Integer;
begin
count := 0;
for i := 1 to Length(s) do
begin
if (s[i] <> ' ') and ((i = 1) or (s[i-1] = ' '))
then inc(count);
end;
WordsCount := count;
end;
var
a: string;
count: Integer;
isUrgent : Integer;
cost: Double;
begin
writeln('Введите строку A: ');
read(a);
count := WordsCount(a);
writeln('Посылка срочная? Если да, введите 1, иначе 0: ');
read(isUrgent);
cost := count * 2;
if (isUrgent = 1) then cost := 1.2*cost;
writeln(Format('Стоимость посылки составляет %.2f рублей.', [cost]));
end.
Файл воспринимается как одно целое
<span>операторы машинного доения
рекламащик
инженер программист
</span><span>
</span>
Const
m=10;
n=6;
var
a:array[1..10,1..6] of integer;
i,j:integer;
begin
Writeln('Элементы массива');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=sqr(i)+sqr(j);
Write(a[i,j]:4)
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
2 5 10 17 26 37
5 8 13 20 29 40
10 13 18 25 34 45
17 20 25 32 41 52
26 29 34 41 50 61
37 40 45 52 61 72
50 53 58 65 74 85
65 68 73 80 89 100
82 85 90 97 106 117
101 104 109 116 125 136
const
n = 10;
var
a: array[1..n] of integer;
i, t: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(50);
Write(a[i]:3);
end;
Writeln;
t:=a[n];
for i:=n-1 downto 1 do a[i+1]:=a[i];
a[1]:=t;
Writeln('Результирующий массив');
for i := 1 to n do Write(a[i]:3);
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
13 43 26 31 1 21 12 0 33 25
Результирующий массив
25 13 43 26 31 1 21 12 0 33
