1. <span>var N, k: real; </span>
<span>begin </span>
<span>readln(N); </span>
<span>if (N<0) then k:= 0 </span>
<span>else </span>
<span>begin </span>
<span>if (frac(N)=0) then k:=N*2 </span>
<span>else k:=(trunc(N)+1)*2; </span>
<span>end; </span>
<span>writeln(k); </span>
<span>end.
2. </span><span>Первый хулиган увеличивал количество кусочков на 3
Второй - на 6
То есть, всего кусочков должно быть N = 1 + 3m + 6n
Значит, N - 1 должно делиться на 3
и наоборот, если N - 1 делится на 3
N - 1 = 3k
то возможна ситуация, когда Первый хулиган рвал k раз,
а Второй наблюдал (ничего не рвал).
Алгоритм свёлся к проверке:
Если N -1 не делится на 3, то No
КОНЕЦ</span>
var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.
если диск разделен на 2 логических диска (например C и D), то все нужные документы скидываете на логический диск D и при форматировании уазываете, что хотите почистить только диск С, тогда у Вас отформатированным получится та чать памяти, которая была отведена под диск С, а все, что находилось на диске D так и останется. Но если у Вас только один логический диск, то только путем скидывания на флешку или записи на CD\DVD.
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=4 then writeln(четверг');
end
Нас учили такие задачи решать с конца. Смотри у тебя дано число 38 (его можно разделить на 2 или вычесть 3). Поскольку оно делиться на 2 нацело используем деление. Получаем 19 (на 2 не делиться следовательно вычитаем 3)=16 и т.д... И у тебя скорее всего опечатка, потому что как ни крут и за 5 шагов не выполнить. Скорее всего нужно из числа 2 в 38. ну или решение должно занять 6 шагов, что очень вряд ли
1 команда 38/2=19
2 команда 19-3=16
1 команда 16/2=8
1 команда 8/2=4
1 команда 4/2=2
1 команда 2/2=1
Т.к начинали с конца считать полученный набор команд записывается с конца : 111121