Определите значение переменной апосле выполнения данного алгоритма: a : = 20; b : = 1; a : = (a + b) / 3; b : = a - 2 * b; a : = a - b; в ответе укажите одно целое число – значение переменной а. ответ:

👇

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

Ответ:

Neekeetos

01.12.2021

a:=(20+1)/3=21/3=7

(получается, что а присваивает значение 7)

b:=7-2*1=5

(b присваивает значение 5)

a:=7-5=2

ответ: 2

4,7(74 оценок)

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

Ответ:

карина2029

01.12.2021

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

3. Заполнить массив случайными целыми числами (0-10). Найти сумму четных и нечетных значений.

begin
var a:=ArrRandom(ReadInteger('n='),0,10); a.Println;
var so:=a.Where(t->t.IsOdd).Sum;
var se:=a.Where(t->t.IsEven).Sum;
Writeln('Сумма четных значений равна ',so,', нечетных ',se)
end.

Пример
n= 15
4 2 1 9 1 1 6 5 10 8 3 9 7 7 9
Сумма четных значений равна 52, нечетных 30

5. Заполнить массив целыми числами с клавиатуры. Найти произведение всех элементов массива.

Ограничим ввод нулем, поскольку ввод нуля обнулит все произведение.

begin
ReadSeqIntegerWhile(t->t<>0).Aggregate(BigInteger(1),(p,q)->p*q).Println
end.

Пример
-4523 235423 6734532 2342354 67345423 2342342 -43532423 0
115347094687898985235964440890392383424914416

7. Заполнить массив случайными целыми числами в интервале от 0 до 18. Найти наибольший элемент среди всех чисел массива и указать его номер.

begin
var a:=ArrRandom(ReadInteger('n='),0,18); a.Println;
var imax:=a.IndexMax;
Writeln('Наибольший элемент ',a[imax],' имеет номер ',imax+1)
end.

Пример
n= 13
1 4 8 18 14 14 7 1 12 15 16 12 11
Наибольший элемент 18 имеет номер 4

4,7(96 оценок)

Ответ:

lllgglll

01.12.2021

Const
n = 10;

var
a: array[0..10] of integer;
i, s: integer;

begin

//Заполнение массива сл. числами

for i := 1 to n do
begin
    a[i] := random(201) - 100;
    write(a[i]:4);
end;
writeln;

//1) Все элементы не превышающие число 100

writeln('Не больше 100 ');
for i := 1 to n do
    if a[i] <= 100 then
      write( a[i]:4);
writeln;

// 2) Все четные элементы

writeln('Кратные двум ');
for i := 1 to n do
    if a[i] mod 2 = 0 then
      write( a[i]:4);
writeln;

// 3) Все элементы, являющиеся трехзначными числами

   writeln('Трехзначные ');
for i := 1 to n do
    if (a[i] < -99) or (a[i] > 99) then
      write(a[i]:4);
writeln;

// 4) Третий, шестой и т.д элементы.

i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
    write(a[i]:4);
    i := i + 3;
end;
end.

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

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

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

08.06.2020

Подробная инструкция: Как установить McAfee SiteAdvisor для Chrome...

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

04.02.2021

Как найти край рулона скотча: советы и хитрости...

Кулинария-и-гостеприимство

02.06.2023

Как быстро и просто подогреть картофель фри?...

Стиль-и-уход-за-собой