Срочно помогите решить пожалуйста даю 90 баллов
1. Найдите и объясните ошибку в программе:
program ;
var a,b,c,d,f,p:integer;
begin
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
2. Найдите и объясните ошибку в программе:
program Prim;
begin
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
3. Найдите и объясните ошибку в программе:
program Prim;
var a,b:integer;
begin
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
4. Найдите и объясните ошибку в программе:
program Prim;
var a,b,c,d,f,p:integer;
begin
writeln('Введите 5 численных значений:');
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
5. Найдите и объясните ошибку в данной программе:
VAR a,b,y : Integer;
BEGIN
a:=10; b:=6;
y:= a / b;
WriteLn (y)
END.
6. Программа вычисляет сумму квадратов всех четных чисел от a до b. Найдите и объясните ошибку в данной программе:
Program prim;
Var a, b, i, k :integer; s:real;
Begin
WriteLn ('Введите a,b');
ReadLn (a,b);
s:=0; i:=a;
While i>=b Do
Begin
k:=2*i;
s:=s+k*k;
i:=i+1;
End;
WriteLn ('Summa=',s);
ReadLn
End.
7. Программа вычисляет сумму всех нечетных чисел от 101 до 301. Найдите и объясните ошибку в данной программе:
Program prim;
Var s,i: integer;
Begin
s:=0; i:=101;
repeat
s:=s+i;
i:=i+2;
Until S>301;
WriteLn ('Summa = ',s);
ReadLn
End.