Задать вопрос!

Задать вопрос!

Все категории

Козлович Антонина...

2 года назад

9

Помогите составить программу в PascalABCNET пожалуйста 3й

Помогите составить программу в PascalABCNET пожалуйста 3й

Информатика

1 ответ:

Morgen2 года назад

0 0

Всего 8 баллов? Кпц, это кто согласится все это делать?

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

Дан массив из N элементов. Найти и вывести элементы этого массива, принадлежащие диапазону от А до В (А и В ввести с клавиатуры)

sport1k

Ответ:

program arrdiap;

var

N, A, B, i: Integer;

M: array of Integer;

begin

Write ('Введите размерность массива: ');

ReadLn (N);

SetLength (M, N);

Randomize;

for i := Low (M) to High (M) do begin

M [i] := Random (100);

Write (M [i], ' ');

end;

WriteLn;

Write ('Введите диапазон A, B: ');

ReadLn (A, B);

WriteLn;

WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');

for i := Low (M) to High (M) do begin

if (M [i] >= A) and (M [i] <= B) then

Write (M [i], ' ');

end;

ReadLn;

end.

0 0

4 года назад

Составить алгоритм и программу для нахождения значения функции: у=(в корне кадратном)2х-3 , если х-произвольное число

Aleks150 [9]

Var x,y:real;
begin
writeln ('Введите x: ');
read (x);
if x>=1.5 then
begin
y:=SQRT(2*x-3);
writeln('y = ', y);
end else
writeln ('Под корнем отрицательное число!');
end.

0 0

4 года назад

Между числами BF16 и C116 стоит число: Ответ запишите в шестнадцатеричной системе счисления

Виктор Аверин

BF(16)=191 (10)
C1(16)=193(10)
между ними число 192 (10)= С0(16)

0 0

4 года назад

Составить программу, определяющую, является ли данное утверждение истинным:Двузначное число А начинается на 3 Составить программ

Аленка69 [178]

1)
var a:Integer;
begin
Readln(a);
if a div 10=3 then
writeln('True');
readln;
<span>end.

2)
var a,b:Integer;
begin
Readln(a,b);
if ((a<100) and (b>100)) or ((a>100) and (b<100)) then
Writeln('True');
readln;
<span>end.</span></span>

0 0

3 года назад

Какие служебные слова используются для соединения двух или более условий?

Екатерина85 [903]

Могут использоваться «and» или «or».

0 0

1 год назад