Система NTFS
_____________
Ответ: 1 изображение - код
2 изображение - проверка, как в задании
Код:
program school10;
Var a, b:Real;
begin
Write('Введите цену 1 кг яблок>> ');
readln(a);
Write('Введите кол-во покупаемых кг. яблок>> ');
Readln(b);
If b>2 then
Write('Стоймость яблок составит: ', b*a*0.8, ' руб.')
Else write('Стоймость яблок составит ', b*a, ' руб.');
end.
513/16=32 (1 остаток)
32/16=2 (0 остаток)
ответ 201
600/16=37 (8 остаток)
37/16=2 (5 остаток)
ответ 258
2010/16=125 (10 остаток, 10 в шестнадцатеричной системе это А,
то есть А остаток)
125/16=7 (13 остаток, 13 в шестнадцатеричной системе это D,
то есть D остаток)
ответ 7DA
Ответ количество форматов 4
Program n_1;
const pi=3.14;
var r, c, s: real;
begin
writeln('Вычесление длины окружности и площади круга');
write('Введение r>>');
readln(r);
c:=2*pi*r;
s:=pi*r*r;
writeln ('с=', c: 6:4);
writeln ('s=', s: 6:4)
end.
<u>Были исправлены ошибки в операторах </u>
<span>var r, c, s, real:
и
</span><span>writeln ('с=', с: 6:4);</span>