Предмет: Информатика,
автор: asiko17d
Нужно по этой схеме создать рабочую программу в Паскале, срочно
30б
Приложения:
YuraGangsta:
Ещё актуально?
Да
Что за Н наверху?
Просто
При S<1 или S>1 выводить "отрицательное число"?
Да и положительное
Ответы
Автор ответа:
0
Ответ:
var S,a,b:real;
begin
readln(a);
readln(b);
if(a>b) then a:=b-a else a:=a+b;
if(b>a) then S:=a+b else begin
b:=b*b;
a:=a/2;
end;
if(S>50) then
begin
if(S>1) then
writeln('число положительное')
else
writeln('число отрицательно');
end
else
begin
S:=S-a;
S:=S-b;
S:=S+1;
end;
end.
Объяснение:
Ну вроде работает)
Да
Чисто теоретически это работает, но оно не выводит "отрицательное число" или "положительное число"
Мм понятно
Извиняюсь, вам сколько лет?
Можно ли убрать проверку на S>50 и оставить S<50
16)
Ааа
Если убрать эту проверку то все будет работать
Понятно
Сижу голову ломаю... А почему у тебя S только при b>a появляется?
Интересные вопросы
Предмет: Литература,
автор: isalapam
Предмет: География,
автор: azali1512
Предмет: Математика,
автор: vira98
Предмет: Русский язык,
автор: Kari0206
Предмет: Математика,
автор: Иринасю