2 года назад

Написати програму, що перевіряє, чи належить число ,введене з клавіатури інтервалу[0,5]

1 ответ:

0 0

Короткий вариант:

Var A:integer;
Begin
Write('Введите число: ');ReadLn(A);
WriteLn((0<=A)and(A<=5));
End.

Более полный вариант:

Var
A:integer;
Begin
Write('Введите число: ');ReadLn(A);
if (0<=A)and(A<=5) then Write('Принадлежит')
else Write('Не принадлежит')
End.

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

Дан целочисленный массив из 12 элементов случайных целых чисел ,принадлежащих интервалу [10;45[.Необходимо найти произведение эл

Rosa3939

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(12,10,45); a.Println;
var p:=a.Where(x->x mod 5=0).Aggregate(1,(a,b)->a*b);
if p=1 then Writeln('Нет элементов, кратных 5')
else Writeln('Произведение кратных пяти элементов: ',p)
end.

Тестовое решение:
26 35 31 28 22 23 26 17 32 40 42 22
Произведение кратных пяти элементов: 1400

0 0

4 года назад

Помогите срочно пожалуйста. и не нужно писать ответы которые не несут инфы

kac80 [17]

Вроде так, но на всякий проверь на самом паскале, насчёт знаков и тд

0 0

3 года назад

Задача 4. Составить программу проверяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в нач

Ksuta [24]

/////////////////////////////////////

0 0

4 года назад

Пользователь создал сообщение из 256 символов в кодировке Unicode, в которой каждый символ кодируется 16 битами. После редактиро

Алиночка87

1)256*16=4096 изначально бит весил наш документ
2)4096-3072=1024 столько бит удалили из документа
3)1024/16=64 делим количество бит на 16 и получаем кол-во символов которые удалили, оно равно 64, с нашего документа удалили 64 символа

0 0

4 года назад

Массив m(8) заполнен с клавиатуры целыми числами в диапазоне от -15 до +10. Числа меньшие -5 увеличить в 3 раза, а числа, больши

Ksellena

Var
a:array[1..8] of integer;
b:array[1..8] of integer;
i:integer;
begin
write('Заполните массив - ');
for i:=1 to 8 do
read(a[i]);
for i:=1 to 8
do
begin
if a[i]<(-5) then b[i]:=a[i]*3
else
begin
if a[i]>7 then b[i]:=a[i]*5
else b[i]:=a[i];
end;
end;
for i:=1 to 8 do
write(a[i],' ');
writeln();
for i:=1 to 8 do
write(b[i],' ');
end.

0 0

4 года назад