Pascal

const
n = 15;
type
mas = array [1..n] of integer;
var
m : mas;
i : integer;
procedure inic (var a : mas);
var
i : integer;
begin
for i := 1 to n do
a[i] := 0;
end;
procedure num (var a : mas);
var
i : integer;
begin
for i := 1 to n do
   a[i] := i;
end;

procedure w (var a : mas);
var
i : integer;
begin
for i := 1 to n do writeln (m[i]);
readln ();<span>
end;</span>

begin
inic (m);
num(m);
w(m);
end.

0 0

4 года назад

Помогите плессс....срочно.

Ксения-1992 [1]

Var
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
    begin
    if (x < 0) or (x <= 1) then
    y:=x
    else
    y:=x*x
    end;
writeln(y);
end

0 0

4 года назад

Дано x - действительное число. Напишите условие проверки принадлежности данного числа промежутку [-5;5). Можно пожалуйста на пи

dasha678davydova [32]

a=float(input())

if a>=-5 and a<5:

print(True)

else:

print(False)

0 0

4 года назад

Запрашивайте у пользователя размер наследства, которое Вы бы хотели получить ( в долларах), и сумму денег , которую вы собираете

Арнольд7777

Program nasledstvo;
var all, inmonth, time:real; //all - размер наследства, inmonth - затраты в месяц
begin
readln(all, inmonth);
time=(all/inmonth)/12;
wiriteln(time);
end.

0 0

4 года назад