Var
a,b,c,max:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
write('Максимальное число: ',max:5:2);
readln;end.

0 0

4 года назад

Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v

deeemon [7]

Выполним несколько первых шагов алгоритма:

2 "7", 82 "4"

4 "7", 78 "4"

Очевидно, что из 86 "4" получим в конце концов 42 "7" и 2 "4"

(42=84/4*2).

Следующий этап:

2 "4", 38 "7", 2 "4"

4 "4", 34 "7", 2 "4"

36 "7", 2 "4"

...

30 "7", 2 "4"

...

6 "7", 2 "4"

2 "4", 2 "7", 2 "4"

Таким образом, из 86 "4" получится строка "447744"

0 0

4 года назад

Создать файл X компонентами которого являются элемента массива M. Переписать из файла X в файл Y все компоненты, которые стоят н

Paukzzz

const M: array[1..8] of real = (0.1, 5.6, 0.8, 2.4, 7.3, 6.8, 0.5, 2.3);

var x,y : file of real;

n: real; i: byte;

begin

assign(x,'x.dat');

assign(y,'y.dat');

rewrite(x);

for i:=1 to 8 do write(x, M[i]);

close(x);

reset(x);

rewrite(y);

i := 1;

while not EOF(x) do begin

read(x, n);

if not odd(i) then

write(y, n);

i := i + 1;

end;

close(x);

close(y);

reset(y);

while not EOF(y) do begin

read(y, n);

write(n:5:1);

end;

writeln;

close(y);

end.

0 0

4 года назад