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

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

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

3 года назад

7

Срочно , молю пожалуйста

Срочно , молю пожалуйста

Информатика

1 ответ:

Nerionas [1]3 года назад

0 0

Ответ:

Z = 120

Объяснение:

Ввод:

120

Вывод:

Z = 120

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

В массиве подсчитать: количество положительных и количество чётных чисел вместе. (Элементов массива:24. Массив вводится случайны

Кристина1993 [14]

На обычном паскалеАБЦ
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
<span>end.</span>

0 0

4 года назад

Задание на циклический алгоритмДаны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числа

gertsogLK [7]

Решение во вложении.

0 0

4 года назад

Разработать алгоритм и составить программу на выбранном языке программирования ( Паскаль или Qbasic) для нахождения произведения

Alinaclub555 [111]

Var
m, n, p: integer;

begin
Write('Введите свой номер в группе: ');
Readln(n);
n := n * 12;
p := 1;
repeat
    m := n mod 10;
    p := p * m;
    n := n div 10
until n = 0;
Writeln('Результат ', p)
end.

Тестовое решение:

Введите свой номер в группе: 13
Результат 30

0 0

3 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО НАДО!Положительные элементы вещественного массива разделить на сумму отрицательных элементов(массив

тон12 [300]

var

a:array[1..10]of extended;

i,otr,m,pol:integer;

begin

for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);

end.

0 0

4 года назад

Напишите программу, выводящую true, если высказывание является истинным, и false в противном случае для утверждения: «Сумма цифр

Морской бриз [58]

Var x:integer;
begin
writeln('Введите чилос x: ');
readln(x);
if x>= 100 then
if (not odd(x)) then
writeln('TRUE')
else
writeln('FALSE')
else
writeln('Число не трехзначное');
<span>end.

Надеюсь правильно понял тебя и составил программу верно.</span>

0 0

4 года назад