137 438 953 472 байт = 137438953472/1024 Кбайт = 134 217 728 Кбайт =
134 217 728/1024 Мбайт = 131 072 Мбайт = 131 072/1024 Гбайт = 128 Гбайт
Если делить не на 1024, а на 1000, то получится ≈ 137,5 Гбайт
А конфликт довольно простой - с точки зрения потребителя на изделии указан неверный объем диска.
Program z1;
var x,y:real;
begin
writeln('введите координаты точки (x;y), при у неотрицательный');
readln(x,y);
if x>0 then
writeln('точка находится в I четверти');
if x<0 then
writeln('точка находится вo II четверти');
if x=0 then
writeln('точка находится на оси ОY');
if y=0 then
writeln('точка находится на оси ОХ');
if (x=0)and(y=0) then
writeln('точка находится в начале координат');
end.
алг
нач
цел <em>a</em>, <em>sum</em>, <em>pro</em>
вывод 'Введите трёхзначное положительное число: '
ввод <em>a</em>
если <em>a</em><100 или <em>a</em>>999
то вывод 'Это не трёхзначное число. Перезапустите программу!'
иначе
<em>sum </em>:= <em>mod</em>(<em>a</em>, 10) + <em>mod</em>(<em>div</em>(<em>a</em>,10),10) + <em>div</em>(<em>a</em>,100)
<em>pro </em>:= <em>mod</em>(<em>a,</em> 10) * <em>mod</em>(<em>div</em>(<em>a</em>,10),10) * <em>div</em>(<em>a</em>,100)
<em>если </em><em>sum</em> > 9 и <em>sum </em>< 100
то вывод 'Сумма цифр числа ',<em>a</em>,' - двухзначное число (',<em>sum</em>,')', нс
иначе вывод 'Сумма цифр числа ',<em>a</em>,' - не двухзначное число (',<em>sum</em>,')', нс
все
если <em>pro </em>> 99 и<em>pro </em>< 1000
то вывод 'Произведение цифр числа ',<em>a</em>,' - трёхзначное число (',<em>pro</em>,')', нс
иначе вывод 'Произведение цифр числа ',<em>a</em>,' - не трёхзначное число (',<em>pro</em>,')', нс
все
если <em>mod</em>(<em>sum</em>, 3) = 0
то вывод 'Эта же сумма (',<em>sum</em>,') кратна трём', нс
иначе вывод 'Эта сумма (',<em>sum</em>,') не кратна трём', нс
все
все
кон
Язык программирования Pascal ABC
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.