Написать программу в паскале. на вход подается х, на выход y = 5*x если x> 0 и y = х*х иначе x и y целые числа.
BARBARA070704
2
31.07.2019 17:20
0
Другие вопросы по теме Информатика
karinaalisa
27.04.2020 13:37
ВеликийМаг2018
23.04.2020 22:06
дима2195
26.04.2020 22:34
babikovserega2
26.04.2020 22:34
Mihailevscaeanica
26.04.2020 22:34
vovaonuchko
26.04.2020 22:35
КирилБыков
26.04.2020 22:35
anastasia3004
26.04.2020 22:35
pnasta434
26.04.2020 22:35
Популярные вопросы
- Весна спешит послать своих вестников на далёкий север.она торопится постлать...
1 - 7. ученик в экспериментальной работе использовал , изготовленную из стекла. при...
2 - Дослідити функцію та побудувати графік f(x)=x^3-3x^2+2...
2 - Дуже іть! при якому значенні а рівняння має єдиний колір. 3x2(квадрат)-ax+3=0...
2 - Яка маса осаду утворюється при взаємодії 20 г натрій гудроксид із цинк хлориду...
3 - Последние звезды тихо погасли в посветлевшем небе, лес, окончательно стряхнувший...
1 - Сописанием восточной азии по плану название региона, столицы, религия, выход...
3 - Образ журдена))именно образ,описание)...
3 - Построить точки а(4; 3; -2) b(-3; -1; 4) c(2; 2; 1) d(5; 4; 3)...
3 - Найдите сумму корней уравнения 5x²-8x+3=0...
3
begin
var x:=ReadInteger('x=');
Writeln('y=',x>0?5*x:x*x)
end.
Тестовое решение
x= 4
y=20
x= -4
y=16
var x,y:integer;
begin
write('введите х'); read(x);
if x>0 then y:=5*x else y:=x*x;
write('y=', y);
readkey;
end.