Существуют три вида циклов на языке Pascal:
1) цикл с параметром (с известным числом повторений) for; используется, когда известно, сколько раз выполнится цикл;
2) цикл с предусловием while; используется, когда неизвестно число выполнений цикла и цикл выполняется, пока условие верно;
3) цикл с постусловием repeat; используется, когда неизвестно число выполнений цикла и цикл выполняется до истинности условия.
Примеры.
1) найти сумму первых 10 натуральных чисел:
s:=0;
for i:=1 to 10 do s:=s+i;
write(s);
2) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
while i<45 do
begin
s:=s+i;
i:=i+2
end;
write(s);
3) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
repeat
s:=s+i;
i:=i+2
until i>45;
write(s);
I1=5120*8=40960 бит/8/1024 = 5 КБ
После преобразования документ будет весить в 2 раза больше.
Поэтому памяти также потребуется в 2 раза больше.
I2=5120*16=81920 бит/8/1024 = 10 КБ
Значит, потребуется еще 5 КБ.
1 поколение
1946-1958
электронные лампы-диоды и триоды
2 поколение
1958-1964
полупроводниковые транзисторы
3 поколение
1964-1972
мис
4 поколение
1972 по наст. время
бис
Смотрим на последнее число оно всегда меньше на 3 чем у прошлого бегуна у 5 бегуна будет номер кончающийся на 7
BEGIN
Ввести число N, проверить, что оно 4-значное.
read(N);
if (N >= 1000) and (N <= 9999) then
begin
Найти 2 цифру
A2 = Int(N / 100) Mod 10;
Найти 4 цифру
A4 = N Mod 10;
Сравнить их
if A2 > A4 then write "Вторая цифра больше, чем четвертая";
if A2 < A4 then write "Вторая цифра меньше, чем четвертая";
if A2 = A4 then write "Вторая цифра равна четвертой";
else
write "Число должно быть 4-значным!";
end;
Конец
END.