Var s: String;
k, kol: Integer;
Begin
kol := 0;
readln(s);
while pos(' ',s) <> 0 do
begin
k := pos(' ',s);
if k <> 0 then
if k = 4 then begin
kol := kol + 1;
delete(s,1,4);
end else
delete(s,1,k);
end;
if length(s) = 3 then begin
kol := kol + 1;
delete(s,1,3);
end;
writeln(kol);
End.
Это только ответ на 1 вопрос.
var a, i, n, b, sum:integer;
begin
sum:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a>9) and (a mod 2=0) then
sum:=sum+a;
writeln(sum);
end;
end.
1 байт → 8 битов.
2 байта → 16 битов.
Удачи! :)
Var
i : integer;
count : real;
begin
count := 370000;
for i := 2014 to 2030 do
begin
writeln('Год ', i, ': ', Round(count));
count := count + count * 3 / 100;
end;
<span>end. </span>