№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore
Var
i,n:integer;
s:string;
begin
writeln('Введите текст');
readln(s);
repeat
n:=pos(' ',s);
delete(s,1,n);
until n=0;
for i:=1 to length(s) do
if s[i]='б' then n:=n+1;
writeln('Число букв "б" в последнем слове: ',n)
<span>end.</span>
Какой формат могут иметь векторные графические файлы?-<span>2) Jpeg</span>
Var p real;
begin
readln(p);
if (p>40) and (x<60) then writeln ('Первая категория');
if (p>61) and (x<75) then writeln ('Вторая категория');
if (p>76) and (x<100) then writeln ('Третья категория');
readln;
end,