М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
zoga2003
zoga2003
09.01.2020 11:57 •  Информатика

Определите значение целочисленных переменных a и b после выполнения фрагмента программы: a: =1819 b: =(a div 100)*10+9 a: =(10*b-a) mod 100

👇
Ответ:
margo344
margo344
09.01.2020
A=71
b=189
4,8(27 оценок)
Открыть все ответы
Ответ:
PolinaCat29
PolinaCat29
09.01.2020
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016

function gcd(a,b:integer):integer;
// Нахождение НОД
begin
  while b<>0 do
  begin
    a:=a mod b;
    var i:=b; b:=a; a:=i
  end;
  Result:=a
end;

procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
  var k:=gcd(a,b);
  a:=a div k;
  b:=b div k
end;

begin
  var a,b:integer;
  Writeln('Введите числитель и знаменатель дроби: ');
  Read(a,b);
  Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3
4,7(68 оценок)
Ответ:
alina15299
alina15299
09.01.2020

20

Объяснение:

Первый цикл записывает в ячейку массива значение ее номера, увеличенное на 1. После прохождения цикла мы получим следующие значения:

A[1]=2; A[2]=3; A[3]=4; A[4]=5; A[5]=6; A[6]=7; A[7]=8; A[8]=9; A[9]=10; A[10]=11.

Следующий цикл меняет значения ячейки массива на значение из предыдущей (начиная со второй). Вторая станет равна первой, третья второй, которая равна первой, так мы просто размножим значение из первой ячейки на все остальные.

Несложно будет вычислить сумму десяти ячеек, каждая из которых равна 2: 2*10=20.

ответ: 20

4,4(78 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ