Написать программу в паскале. на вход подаётся x на выход y=5x если x>0 y=xx иначе

Знания

Информатика

1 ответ:

MissVopros4 года назад

0 0

//Pascal ABC.NET 3.1 сборка 1256

Var
x,y:real;
begin
readln(x);
if x>0 then y:=5*x else y:=x*x;
writeln(y);
end.

Пример ввода:
-1.1
Пример вывода:
1.21

Читайте также

Свойство информации, отражающей истинное положение дел Что это?

evdokya

Свойство информации отражающее истинное положение дел это достоверность

0 0

4 года назад

1. Составить программу, которая вычисляет сумму и среднее арифметическое чисел вводимых с клавиатуры, пока не будет введено числ

Ольга Дудина [86]

1)
Program n1;
var sum,k,a: integer;
begin
sum:=0;
k:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a;
k:=k+1;
readln(a);
end;
write('сумма: ',sum,'; срзнач: ',sum/k);
end.
2)
Program n2;
var a,c,sum: real;
k: integer;
begin
k:=1;
readln(a,c);
sum:=a;
repeat
sum:=sum+a*0.25;
k:=k+1;
until sum>=c;
write(k);
end.

0 0

1 год назад

Двоичный код числа 33

vanillamuss [539]

33- 100001 ( двоичный код числа 33)

0 0

4 года назад

Помогите!Надо в паскале сделать программу с решением этого ; 1) y=2ax²+b√x при x>100 2) y=a√x²+100 - bx x<100

Маргарита Гритченок

Var a,x,b:integer;y:real;
begin
writeln('a,b,x');
readln(a,b,x);
if x>=100 then y:=2*a*sqr(x)+b*sqrt(x) else y:=a*sqrt(x)+100-b*x;
writeln(y:5:2);
end.

0 0

1 год назад

Постройте таблицу истинности для следующего выражения: НЕ А И В НЕ А ИЛИ НЕ В ¬ А ∧ ¬ В А ∧ ¬ В ∨ ¬ С (А ∨ -В) ∧ -С

Ridlav

Таблицы истинности в приложении.

а). !А & В
б). !А v !В
в). !А & !В
г). А & !В ∨ !С
д). (А ∨ !В) & !С

0 0

4 года назад

Написать программу в паскале. на вход подаётся x на выход y=5*x если x>0 y=x*x иначе

Написать программу в паскале. на вход подаётся x на выход y=5x если x>0 y=xx иначе