Найдите произведение всех чисел от a до b , кратные 4 Подскажите пж

Знания

Информатика

1 ответ:

zonked4 года назад

0 0

Begin
var pr:=1;
var a:integer:=readlninteger('Введите а:');
var b:integer:=readlninteger('Введите b:');
for a:=a to b do
if (a mod 4 =0) then pr*=a;
println(pr);
end.

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

Найти все натуральные числа а, b и с из интервала от 1 до 20, для которых выполняется равенство: a+b=c (составить программу на я

enri43

Begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
<span>end.</span>

0 0

4 года назад

Найти сумму чисел от 1 до N, делящихся на 5 и меньших а. Паскаль

Lanser

Begin
    var a := ReadInteger('a =');
    PrintLn(
        Range(1, ReadInteger('n ='))
        .Where(x -> (x mod 5 = 0) and (x < a))
        .Aggregate((s, x)-> s + x)
    );
end.

0 0

3 года назад

Составьте программу для решения неравенства: AX+B>0

-Ксюша- [65]

AX+B>0
ax>b
x>b/a ///////

0 0

4 года назад

Между командами ввода и вывода впишите в алгоритм несколько команд присваивания, в результате чего должен получиться алгоритм во

Yomayoo

var a:integer;

Begin

read(a);

a:=a*a;

a:= a*a;

writeln(a);

End.

0 0

4 года назад

Какой фрагмент алгоритма называют линейным даю 25 баллов

DrNet0 [242]

Линейный алгоритм<span> - это такой, в котором все операции выполняются последовательно одна за другой. Хоть бы загуглил прежде чем баллы тратить</span>

0 0

4 года назад