Program kratno;
var a,b,sum: integer;
begin
readln (a,b);
if (a>=-9) And (b>=-9) and (a<=9) and (b<=9) then begin
sum:=a+b;
writeln (sum);
end
else
writeln ('Введенные числа не являются однозначными');
end.
Один раз отмерь, один раз отрежь!
33 символа
1 символ кодируется 16 битами
33*16=528 бит=66 байт
*В формуле это выглядит так
i=16 бит
K=33
-------
I-?
I=Ki=33*16=528 бит=66 байт
Program massive (input, output);
type vector=array[1..10] of integer;
var I:integer;
z:vector;
begin
for I:=1 to 10 do
read (z[I]);
for I:=1 to 10 do
if z[I]<0 then z[I]:=z[i]*(-1);
for I:=1 to 1o do
write (z[I], ' ');
end.
Сначала небольшие пояснения.
Если после первого года количество рыбы в пруду не уменьшится, то вылов небольшой, и так может продолжаться бесконечно.
Если уменьшится, то можно попробовать сделать то, что написано в условии, и посмотреть, когда всё закончится.