1. Ниже приведена программа:

var s,k: integer;
begin
readln(s);
readln(t);
if (s < 1) and (t < 2)
then
writeln ('YES')
else
writeln ('NO')
end.
Было выведено 9 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s, t):

(3, 5); (4, 3); (4, −5); (0, 7); (0, −2); (−2, 1); (−2, 5); (−2, −4); (1, 2).

Сколько было запусков, при которых программа напечатала «NO»? В качестве решения выпишите все пары запусков и напротив каждого укажите вывод: YES или NO. В ответе укажите количество.

2. Составьте программу, выводящую значение вещественной переменной x, равной значению выражения 2(a+b)/a^2,где a и b – целочисленные переменные, их значения вводятся с клавиатуры.

3. Целое положительное число вводится с клавиатуры. Нужно проверить является ли оно четным.

4. Напишите программу, которая вычисляет сумму n-первых целых положительных чисел S = 1 + 2 + 3 + … + n. Количество суммируемых чисел n должно вводиться пользователем во время работы программы.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

1Алексей123451

03.07.2021 03:20

Составьте таблицы истинности. (60 )...

satinovgerman

11.05.2020 10:41

Построить таблицу истинности!...

alekcandrina200

31.12.2020 12:05

По с++ как и предполагалось, с ростом города увеличилось и количество купцов, желающих здесь торговать. желающих было настолько много, что решено было выдавать лицензию только...

elenabeloglazo

05.12.2022 22:03

Егэ по инфе 25 номер 3. правильное ли у меня решение? ? вот ссылка на -- вот мое решение: program abc; const n = 6; var a: array[1..n] of integer; i, j, k: integer; begin for...

стас489

11.04.2020 03:46

олимпиада по информатике шифр мистера фокса мистер фокс придумал новый шифр. сначала он пронумеровал все 33 буквы алфавита цифрами, дописав к однозначным номерам слева 0, таким...

daniil326

25.07.2021 09:27

1. Запишите в обычном виде выражения, представленные в соответствии с правилами языка ПАСКАЛЬ:а)(x and y) or zб)sqr((a + b)/2)в) 15 * sqrt(a/a-b))...

jrbr

16.05.2021 21:55

Чтобы получить персональные рекомендации, покупатель должен войти в личный кабинет. Пользователь ivanova. ekaterina заявила об ошибке входа. Он вводит свой пароль sweetstore111,...

pomogi31

12.07.2020 22:13

Кондитерская «Сладкие истории» хочет настроить рекомендации товаров по акции. Акции предлагаются при выполнении двух условий: - покупатель хочет купить пирожные; - покупатель...

maratkhan0311

11.09.2020 09:53

Задание 2: написать программу Кондитерская «Сладкие истории» хочет настроить рекомендации товаров по акции. Акции предлагаются при выполнении двух условий: - покупатель хочет...

danyaaseev2006

14.03.2020 09:13

1. Установите соответствия: ответы:1. память 2. процессор 3. устройства ввода и вывода4. мышьСоответствия: А) манипуляторБ) хранение информацииВ) обработка информацииГ) передача...

Ответ:

marisa10

26.11.2021 09:33

[l,r,строка,номер]
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[0, 3, "abba", 5]
[3, 3, "a", 6]
[3, 4, "aa", 7]
[4, 4, "a", 8]
[3, 5, "aaa", 9]
[4, 5, "aa", 10]
[5, 5, "a", 11]
[3, 6, "", 12]
[4, 6, "aaa", 13]
[5, 6, "aa", 14]
[6, 6, "a", 15]
[2, 7, "bb", 16]
[7, 7, "b", 17]
[6, 8, "aba", 18]
[8, 8, "a", 19]
[7, 9, "bab", 20]
[9, 9, "b", 21]

#код программы Ruby 22
s = "abbbab"
n = 0
for r in 0..s.size-1
    for l in 0..r
        t = s[l..r]
        if t.reverse == t
            n += 1
            p [l,r,t,n]
        end
    end
end

0,0(0 оценок)

Ответ:

vlada363

16.03.2020 21:38

Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида

//PascalABC.Net

function NOD(A, B: integer): integer;
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

procedure pNOD(A, B: integer; var NOD: integer);
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

begin
    var a: Array of integer := (16, 32, 40, 64, 80, 128);
    var n := a[low(a)];
    for var i := low(a) to high(a) do
        pNOD(n, a[i], n);

    Writeln(n);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку