7. Определите значение переменной «a» после выполнения фрагмента программы: a = 10
b =3
if a > b: b = b+12 else: a = a-7
if a > b: a = a+12 else: a = a-7
ответ:
8. Определите значение переменной «a» после выполнения фрагмента программы:
a = 10
b =5
if a > 5 and a < b:
a = a-5
ответ:
9. Определите значение переменной «a» после выполнения фрагмента программы:
a = 10
b =5
if a > 1 or a < b:
a = a-5
if a > 1 and a == b:
a = a-5
ответ:
10. Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 15?
a = 10
b =5
if a < 1 ... a > b:
a = a-5 else:
a = a+5

👇

Увидеть ответ

Ответ:

ivangregori32p08irj

19.01.2021

для 7-3

для 8-10

для 9-0

для 10-and

4,8(77 оценок)

Открыть все ответы

Ответ:

xomidov

19.01.2021

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=ReadInteger('Номер столбца для подсчета суммы:');
Writeln('S=',a.Col(k-1).Sum)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 8
*** Исходный массив [5,8] ***
91 -39 49 29 -60 -58 -88 -5
-80 -5 58 38 -75 -76 -54 -33
-60 -66 98 -88 96 -48 94   2
-4 81 -38 -91 26 -91 32   7
30 83 30   3 22 93 31   0

Номер столбца для подсчета суммы: 4
S=-109

На случай, если я неверно понял задание и нужна сумма по КАЖДОЙ колонке:

begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.Cols.Select(s->s.Sum).Println
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 7
*** Исходный массив [4,7] ***
13 -14 82 88 -38 55 89
11 74 -35 85 13 27 -80
-88 76 -64 -88 -50 28 -13
90 87 -71 -94 -59 95 -83

26 223 -88 -9 -134 205 -87

4,4(88 оценок)

Ответ:

AnonimStudent228

19.01.2021

1
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 2 = 0
        then
            Writeln('Число чётное')
        else
            Writeln('Число не чётное');
    readln;
end.

2
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 3 = 0
        then
            Writeln('Число делится на 3')
        else
            Writeln('Число не делится на 3');
    readln;
end.

3
program z;
var
    i: array[1..6] of byte;
    x:byte;
begin
    for x:=1 to 6 do

        begin
            Writeln('Введите ', x,' цифру из 6 ');
            Read(i[x]);
        end;
    if (i[1]+i[2]) = (i[4]+i[5]+i[6])
        then
            Writeln('Билет счастливый')
        else
            Writeln('Билет не счастливый');
    Readln;
end.

5)))
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 6 = 0
        then
            Writeln('Число делится на 6')
        else
            Writeln('Число не делится на 6');
    readln;
end.
6
program z;
var
    a,b:integer;
begin
    Writeln('Введите число A'); Readln(a);
    Writeln('Введите число B'); Readln(b);
    if b mod a = 0
        then Writeln('Число А делится нацело на число В')
        else Writeln('Число А не делится нацело на число B');
    Readln;
end.

4,8(60 оценок)

Это интересно:

Транспорт

28.04.2020

Как заменить ручки на руле мотоцикла: подробное руководство...

Семейная-жизнь

18.02.2023

Как придумать крутое и запоминающееся прозвище для себя или других?...

Образование-и-коммуникации

26.01.2022

Как хорошо учиться: советы, методы и секреты...

Компьютеры-и-электроника