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

4 года назад

Подсчитать произведение целых нечётных чисел диапазона [a ,b]

Знания

Информатика

1 ответ:

Nadaz [151]4 года назад

0 0

Program Proizved;
var i, a, b, rez : integer;
begin
write('введите начало диапазона ');
readln(a);
write('введите конец диапазона ');
readln(b);
rez:=1;
for i:=a to b do
if (i mod 2)<>0
then rez:=rez*i;
i:=i+1;
writeln('Произведение нечетных чисел диапазона = ', rez);
end.

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

Найти площадь кольца, внутренний радиус которого равен 20, а внешний -заданному числу r (r > 20). паскал

noc123

Var r,s:real;begin writeln('r=?, r>20 '); readln(r); s:=3.14159265359*(r*r-400.0); writeln('s=', s);end.
--------------
Но проверку r>20 не делал, просто попросил словами.

0 0

4 года назад

Составьте программу ,заполнения массива a[i, j] нулями и единицами в форме ромба

Натали404 [1.6K]

var

A: array [1..9, 1..9] of Integer;

i, j: Integer;

begin

WriteLn ('Массив:');

for i := 1 to 9 do begin

for j := 1 to 9 do begin

if Abs (i - 5) + Abs (j - 5) <= 3 then

A [i, j] := 1

else

A [i, j] := 0;

end;

for i := 1 to 9 do begin

for j := 1 to 9 do begin

Write (A [i, j], ' ');

end;

WriteLn;

end;

end.

0 0

4 года назад

РЕШИТЕ! СРОЧНО! В цветовой модели RGB для кодирования одного пикселя используется 3 байта. Фотографию размером 1024x2040 пиксиле

МаксимХ [7]

98 байт .формула вычисления проста

0 0

4 года назад

b := 4 a := -3 b := 7 - 2*a - b a := b/3 - a

VKruglova

А Б
-3 4
9
6
Ответ: а=6

0 0

4 года назад

Quick Basic 14,15 Напишите, пожалуйста, программную реализацию.

андрейвторлеп

14:

CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / x + SIN(x * x)
ELSE
PRINT "y("; x; ") = "; x + 1 / (x * x)
END IF
NEXT x
END

15:

CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / (x * x) + 1
ELSE
PRINT "y("; x; ") = "; x - 5
END IF
NEXT x
END

0 0

4 года назад