SOS. Найти произведения четных чисел от 10 до 20. Написать программу в Паскаль

Знания

Информатика

1 ответ:

Taras 1 [29]4 года назад

0 0

begin writeln ('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin s := s + (x mod 10); x := x div 10; end;

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

Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и определить, есть ли в нем одинаковые соседние элемен

ZorgFrog

Program Program1;
Var
a:array [1..10] of integer;
i:integer;
rez:boolean;
begin
randomize;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],',');
end;
rez:=false;
for i:=1 to 10 do
begin
if (i>1) and (a[i]=a[i-1]) then rez:=true;
if (i<10) and (a[i]=a[i+1]) then rez:=true;
end;
if rez then writeln(' Есть одинаковые соседние элементы') else
writeln(' Нет одинаковых соседних элементов');
<span>end.</span>

0 0

4 года назад

Какой набор чисел удовлетворяет следующему условию(х<5) и не ((х≤2)) или (х>9)?

Arsen1992

$(x < 5) \wedge \neg{((x \leq 2)\vee(x>9))} = \\
(x < 5) \wedge \neg(x \leq 2)\wedge\neg(x>9) = \\
(x < 5) \wedge (x > 2)\wedge (x \leq 9)$
т.е. числа из интервала (2, 5), если целые то это 3 и 4

0 0

4 года назад

Я хочу пойти учится на гейм дизайнера, но встретила сайт где учатся именно на гейм дизайнера и программы после которых можно пол

Denwest [144]

Он. Не чем не отличаются просто где или что то будет разное

0 0

4 года назад

Помогите решить!1)))Вводятся 4 числа: a, b, c и d. Выведите все числа на отрезке от a до b, дающие остаток c при делении на dВхо

Ivan Komkov

Var a, b, c, d, i : integer;
Begin
    read(a);
    read(b);
    read(c);
    read(d);

    for i := a to b do
        if (i mod c = d) then
            writeln(i);

    writeln();

    for i := a to b do
        if frac(sqrt(i)) = 0 then
            writeln(i);

    writeln();

    for i := 2 to a-1 do
        if a mod i = 0 then begin
            writeln(i);
            exit;
        end;
End.

0 0

4 года назад

Симметрия в информатике

SamuelBal [7]

Что именно нужно сделать?

0 0

4 года назад