Program n1;
const nn=1000;
var x: array[1..nn] of integer;
m,i:integer;
begin
writeln('Введите размерность массива'); readln(m);
writeln('Введите массив');
for i:=1 to m do readln(x[i]);
for i:=1 to m do
if x[i]=0 then write(x[i],' ');
end.<span>
</span>
Ответ:
Блок схема
Объяснение:
В прямоугольной области описывается действие, в параллелограмме ввод или вывод.
1)запускаем часы на 8 мин и 3 мин одновременно
на 3 мин запускаем ещё раз
2) в 8мин осталось 2 мин, запускаем часы на 3мин, после высыпания в 8 мин в 3 мин останется 1 мин, переворачиваем их и
3) начинаем отсчёт времени: 1 мин в 3-х минутных и переворачиваем их ещё два раза 1+3+3=7 минут
вообще признак делимости на 2 можно определить проще. Если остаток от деления на 2=0 тогда число делится на 2 нацело иначе нет if (n mod 2)=0 then writeln('Число делится на 2 нацело' ) else writeln('Число не делиться на 2 нацело' );
Однако если по условию задачи признак, такой то уж ничего не пделаешь
Program evenNum;
Uses crt;
var n:real;
begin
clrscr;
write('Введите число n: ');
readln(n);
if ((n/2)<>(n div 2)) then writeln('Число не делится на 2 нацело' )
else writeln('Число делится на 2 нацело' );
readkey;
end.
var n:integer;
begin
writeln ("введите число N");
read(n);
if n>0 then n:=n+1;
if n<0 then n:=n-1;
writeln (n);
end.
