Добавляйте качественное вложение у 1 птицы видны только ноги)))
1 страус,2 пеликан,3 пингвин,4 попугай
птица НЕ плавает 1,4
птица плавает И летает 2
птица летает ИЛИ плавает 2,3,4
птица плавает И НЕ летает 3
птица летает И НЕ плавает 4
птица НЕ летает И НЕ плавает 1
1) var a,b,s :real;
begin
readln(a,b);
s:=a+b;
write(s);
end.
2)несовсем понятно
var a,n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
a:=3*i;
write(a);
end; end.
1символ это 1байт то есть 8бит = 4*8 = 36бит