Хотя бы некоторые из них. буду : 1. написать на паскале программу для вычисления суммы всех натуральных чисел в интервале от 100 до 200 2. написать на паскале программу для вычисления суммы: s=2+4+6+8++2*n, где n вводиться с клавиатуры 3. что будет выведено на экран в результате след. программы, если n было присвоено значение 4. program prim; var n, s, i enteger; begin read(n); s: =0; for i: =1 to n do s: =s+2*i; write(s) end 5. какие из слов могут быть идентификаторами в паскале (может быть неск. ответов): 123prim, бак_12, slon_1, begin 6. написать на паскале программу для вычисления из трёх заданных целых чисел. 7. что будет выведено на экран после выполнения след. программы: program my; var a, b, c: integer; begin; a: =5; b: =a+10; if a+b> 20 then c: 1 else if b=15 then c: =2 else c: =3; write(c) end. мне хотя бы некоторые из вышеперечисленных. буду признателен вам. заранее .

1) 
sum = 0;
for i:= 100 to 200 do sum:=sum+i;

2)
readln (N);
sum:=0;
for i:=1 to N do sum:=sum+i*2;

3)
20

5)
slon_1

6)
вычисления чего?

7)
2

Объяснение:

Задание 1

program bukva;

const R=[' ','.',',',';',':','?','!','-']; // разделители

var

s,bukv:string;

i,kol,len:integer;

procedure UpCaseRus(var s:string);

{русские в верхний регистр}

var i:integer;

begin

for i:=1 to length(s) do

if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)

else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)

else if s[i]='ё' then s[i]:='Ё';

end;

begin

readln(s);

readln(bukv);

UpCaseRus(s);

UpCaseRus(bukv);

For i:=length(s) downto 2 do

if ((s[i] in R) and (s[i-1] in R)) then delete(s,i,1);

len:=length(s);

kol:=0;

for i:=len downto 1 do

begin

if s[i] in R then

if s[i+1]=bukv then kol:=kol+1;

end;

if s[1]=bukv then kol:=kol+1;

writeln('Слов на букву '+bukv+' ',kol);

readln;

end.

Задание 2

const r=[' ','.',',',';',':','?','!','-'];

var

s:string;

i,kol,d:integer;

begin

readln(s);

len:=length(s);

kol:=0;  d:=0;

For i:=length(s) downto 2 do

       if ((s[i] in r) and (s[i-1] in r)) then delete(s,i,1);

for i:=1 to length(s) do

begin

if s[i] in r then kol:=kol+1

else if (s[i] in ['0'..'9']) then d:=d+1;

end;

writeln('Слов всего ',kol+1);

writeln('Цифр  в тексте ',d);

readln;

end.

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.