Процесс внесения изменений в имеющийся текст
В граф. вид сами нарисуете (я не кулинар, предупреждаю).
Начало (в кружке)
Цикл начинается:
Берем блин (в квадрате)
Кладем на сковородку (в квадрате)
Переварачиваем (в квадрате)
Кладем на тарелку для блинов (в квадрате)
Цикл кончается
Конец (в кружке)
К циклу прикрутите счетчик и после начала еще 'считывайте' количество блинов
Program A1;
var a,b:Integer; {Можно и real}
begin
readln (a,b);
if a<b then writeln ('Число а больше числа б') else writeln ('Число б больше числа а');
end.
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
2048 в байт 2048Кбайт
12288 бит 12288 Кбайт
8000 бит 1000 байт