Информатика, опубликовано 06.06.2020 23:02
нарисовать блок-схему и написать программу.
С клавиатуры введите число x если оно отрицательное то увеличьте его в 2 раза в остальных случаях возвести X квадрат. Вывести результат
Ответы
Ответ оставил: Гость
Солнечный закат в горах удивительно хорош .(Повеств ,невоскл двусостав ,полное ,распр )
Ответ оставил: Гость
var x:integer;
begin
readln(x);
if x < 0 then x:=x*2;
if x >= 0 then x:=x*x;
writeln(x);
end.
Объяснение:
Ответ оставил: Гость
Y+z+z+y+y+z=3y+3z=3(y+z)Ответ оставил: Гость
Var a,b,c,mx: integer; p: real;begin readln (a,b,c); mx:=a; if mx<b then mx:=b; if mx<c then mx:=c; p:=(a*b*c)/mx; write(p);end. Ответ оставил: Гость
Исполнитель;)спасибо ненужно)))
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
