Предмет: Информатика,
автор: Alina8045
дано натуральное число больше либо равно нулю если не отрицательное то вычесть 50 иначе вычесть 100
TeamHeadKick:
Какой язык?
Паскаль
И да, в условии ошибка, данно число либо равное нулю, либо больше, а ифом проверять просят на отрицательность, смысл? Или всё верно?
Ну тогда число больше 0
Ответы
Автор ответа:
1
Var a:integer;
Begin
Writeln('Введите число a');
Readln(a);
If a>=0 then
a:=a-50;
Else
a:=a-100;
Writeln(a);
End.
Begin
Writeln('Введите число a');
Readln(a);
If a>=0 then
a:=a-50;
Else
a:=a-100;
Writeln(a);
End.
Автор ответа:
1
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
if n>=0 then n-=50 else n-=100;
Writeln(n);
end.
Условие некорректно. Натуральное число всегда больше нуля. Поэтому задача решена для такого условия:
"Дано ЦЕЛОЕ число. Если оно не отрицательное, то вычесть 50, иначе вычесть 100"
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
if n>=0 then n-=50 else n-=100;
Writeln(n);
end.
Условие некорректно. Натуральное число всегда больше нуля. Поэтому задача решена для такого условия:
"Дано ЦЕЛОЕ число. Если оно не отрицательное, то вычесть 50, иначе вычесть 100"
Интересные вопросы
Предмет: Русский язык,
автор: islam222288
Предмет: Английский язык,
автор: alievyasin777
Предмет: Химия,
автор: kirakostyukova2008
Предмет: Алгебра,
автор: Зуура11
Предмет: Алгебра,
автор: Ум10000000000