Program P;
Var
n, i : Integer;
max, iMax: Integer;
Begin
Write('Enter 10 numbers ');
for i := 1 to 10 do
Begin
Read(n);
if i = 1 then
Begin
max := n;
iMax := i;
End
else
if n > max then
Begin
max := n;
iMax := i;
End;
End;
WriteLn('Max = ', max);
WriteLn('index = ', iMax);
ReadLn;
End.
1) размер изображения=640*480*3=112,5 кбайта
передача=28800/8=3600 байта/с
время=115200/3600=32 с
2) размер файла=10*51200/8=64000 байта
Количество символов=64000*8/16=32000 символов
3) Размер файла=4096*600=2,3Мбайта
<span>Var x,y: real;
Begin
readln (x,y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('YES')
else writeln('NO')
End<span>.
Пример:
4 1
YES</span></span>
<span>В качестве разделителей добавлены только: пробел, запятая, точка и тире.</span>
Программа на паскале (программа - это один из способов записи алгоритма).
var n,p,i:integer;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*i;
writeln('p = ',p);
end.
Пример:
n = 7
p = 5040