Var
a: array[1..10] of integer;
i, max: integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
if (i = 1) or (a[i] > max) then
max := a[i];
end;
writeln('Max value = ', max)
end.
Program d1;
var
x1,x2,y1,y2,d:Real;
begin
Read(x1);
Read(x2);
Read(y1);
Read(y2);
//d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
write('Ðàñòîÿíèå ìåæäó òî÷êàìè: ',d);
end.
Общее количество символов в рукописи:
2000*80*100=16 000 000 символов
Кол-во байт:
2 байта = 16 бит
16 000 000 * 2 = 32 000 000 байта
32 000 000 : 1000 : 1000 = 32 Мб
Иллюстрации:
80*5 = 400Мб
Объем рукописи: 32+400=432Мбайта
Флэш-карта 512 Мб < 432 Мб, поместится
1. Что то похоже на дракона
2. Больше всего напоминает жирафа
//PascalABC.Net 3.2
begin //true - бьет; false - не бьет
var s1:=readstring ('Введите позицию пешки: ');
var s2:=readstring ('Введите позицию слона: ');
write (abs(ord(s1[1])-ord(s2[1]))=abs(ord(s1[2])-ord(s2[2])));
end.