Задать вопрос
13 июля, 17:23

1) напишите функцию вычисляющую количество трехзначных чисел делящихся на 13 и не оканчивающихся на 3

2) для некоторого массива из 30 элементов, проверить, есть-ли в массиве элемент, заданному значению с клавиатуры

+1
Ответы (1)
  1. 13 июля, 20:12
    0
    Pacal

    function F () : integer;

    var

    k, i : integer;

    begin

    k : = 0;

    for i : = 100 to 999 do

    if (i mod 13 = 0) and (i mod 100 3) then

    k : = k + 1;

    Result : = k;

    end;

    begin

    writeln (f ()) ;

    end.

    const

    n = 30;

    var

    a : array [1 ... n] of integer;

    i, b : integer;

    r : boolean;

    begin

    readln (b) ;

    i : = 1;

    r : = false;

    While (not r) and (i < = n) do

    begin

    if a[i] = b then

    r : = true;

    i : = i + 1;

    end;

    if r then

    writeln ('Есть')

    else

    writeln ('Нет') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1) напишите функцию вычисляющую количество трехзначных чисел делящихся на 13 и не оканчивающихся на 3 2) для некоторого массива из 30 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы