1) цикл выполниться 2 раза.
2) Паскаль не знаю, напишу программу на с++, может быть что-то поймешь
Python 3
a = int(input())
b = int(input())
print(*list(range(a, b + 1)))
Ответ:
var a:array [1..14] of real;
i:integer;
s:real;
begin
s:=0;
write('Массив: ');
for i:=1 to 14 do
begin
a[i]:=random()+random(3);
write(a[i]:0:3,' ');
s:=s+a[i]
end;
writeln;
write('Сумма чисел равна ',s:0:3)
end.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
case ReadInteger('Номер месяца (1-12):') of
1,2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else Writeln('Неверный номер месяца')
end
end.
<u>Вариант "для школьников"</u>
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var n:integer;
begin
Write('Номер месяца (1-12): '); Read(n);
case n of
1,2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else Writeln('Неверный номер месяца')
end
end.
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.