1)
Var
A,B:integer;
Begin
ReadLn(A,B);
if (A>0)and(B>0) then WriteLn(A*B)
else WriteLn(A*A+B*B);
End.
2)
Const
N=30;
Var
A:array[1..N] of integer;
Begin
For var i:= 1 to N do
Begin
A[i]:=random(100)-50;
Write(A[i]:3,' ');
End;
WriteLn;
For var i:= 1 to N do
Begin
if i mod 2 = 0 then A[i]:=0
else if i mod 5 = 0 then A[i]:=A[i]*2;
Write(A[i]:3,' ');
End;
End.
Program proga;
var str1,str2,str3:string;
input:Text;
begin
Assign(input,'file.txt');
reset(input);
readln(input,str1);
readln(input,str2);
readln(input,str3);
if(length(str1)>length(str3)and length(str3)) then
writeln('1 строка самая длинная');
else if length(str2)>length(str3) and length(str1) then
writeln('2 строка самая длинная');
else if length(str3)>length(str1) and length(str2) then
writeln('3 строка самая длинная');
close(input);
end.
P.S файл со строками надо предварительно создать в папке с Exe файлом программы
В четырехцветном изображении для хранения одной точки требуется log(2)4 = 2 бита; в изображении с 16-цветной палитрой - log(2)16 = 4 бита. В том же объеме памяти в этом случае можно сохранить изображение, содержащее в 2 раза меньше точек, т.е. 300*200 / 2 = 30000. Если не изменять пропорции, то размер изображения ≈ 212*141
<span>1 <span>for i:=1 to 10 do
2 begin
3 x[i]:= random(0)-2;
4 write(x[i]:1);
5 end;</span></span>