Найти произведение чисел, кратных 5 и не оканчивающихся на 0 в массиве из 10 элементов, принимающих значение от 20 до 30.

Знания

Информатика

1 ответ:

Сергей777 [118]4 года назад

0 0

<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var a := ArrRandom(10, 20, 30);

a.Println;

var p := 1;

foreach var t in a do

if t = 25 then p *= 25;

if p = 1 then p := 0;

p.Println;

end.

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

Составить блок-схему и программу вычисления площадь прямоугольника

Елена-факел [109]

Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.

0 0

4 года назад

С клавиатуры вводятся два натуральных числа А и В (А<В<30000). Программа выводит на экран четные числа, кратных 7 из проме

valentinkaya

Var
    a, b, i, k: integer;

begin
    readln(a, b);

    for i := a to b do
        if i mod (7 * 2) = 0 then
        begin
            k := k + 1;
            writeln(i);
        end;

    writeln('K = ', k);
end.

0 0

4 года назад

ПОЖАЛУЙСТА ПОМОГИТЕ!!!! ОЧЕНЬ СРОЧНО!!!! Точка на плоскости задана своими координатами X и Y. Построить таблицу, содержащую коор

Виктория2303 [7]

Рисунок и требуемая таблица - в прилагаемом файле.

0 0

4 года назад

Текст, набранный на компьютере содержит 11 страниц, на каждой странице 40 строк, а в каждой строке по 64 символа. Определите инф

Saidka

Из условия следует, что на одной странице $64*40=2560$ символа, а раз так, в тексте $2560*11=28160$ символа. Следовательно, текст будет весить $28160*16=450560$ бит, или 56320 байт, или 55 КиБ:)

0 0

4 года назад

Срочно плиз!!! Ввести два числа ( C, O) и вывести наибольшее число из этих чисел .Учесть в программе, что числа могут быть равны

Асянастя [8]

Ввод: С ^ О С/П.

П1 <-> П0 - x<0 08 ИП0 С/П ИП1 С/П

0 0

4 года назад

Прочитать ещё 2 ответа