Для защиты от тупого копирования. gcc 4.8.4
Var
a,b:integer;
begin
Write('Введите a и b: '); Read(a,b);
if a mod 2<>0 then inc(a);
while a<=b do begin
Write(a,' ');
a:=a+2
end
end.
<u>Пример</u>
Введите a и b: -7 11
-6 -4 -2 0 2 4 6 8 10
Var a,i:integer;
m:array[1..10] of integer;
begin
a:=10;
randomize;
for i:=1 to a do
begin
m[i]:=random(21);
end;
for i:=1 to a do
if (m[i]>5) and (m[i]<15) then
writeln(m[i]);
<span>end. </span>
S:=0;
for i:=1 to 7 do begin
s:=s+sin(x);
x:=x+x;
end;
Остальную программу сам допишешь.
При вводе символа и интерпретируя его в тип int оно не может произвести никаких действий, поэтому программа продолжает работать со значением по-умолчанию.
<h2>А вот официальное примечание:</h2>
If extraction fails (e.g. if a letter was entered where a digit is expected), value is left unmodified and failbit is set.
Если ввод не удается (например, если была введена буква, хотя ожидается число), значение остается неизменным и устанавливается ноль.