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

Написать программу обмена переменных x и y , без использования дополнительных велечин , ( это надо делать в pascal)

👇
Ответ:
NamaruC3
NamaruC3
17.03.2020
Var
  a,b:integer;
begin
  a:=50; b:=-20; { начальное присванивание }
  Writeln('Исходные значения: a=',a,', b=',b);
  a:=a+b; b:=a-b; a:=a-b;
  Writeln('Обмен после "арифметического"
  a:=50; b:=-20; { начальное присванивание }
  a:=a xor b; b:=a xor b; a:=a xor b;
  Writeln('Обмен после "логического"
end.

Результат выполнения программы:
Исходные значения: a=50, b=-20
Обмен после "арифметического"
Обмен после "логического"
4,5(83 оценок)
Открыть все ответы
Ответ:
konovalova701
konovalova701
17.03.2020
1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.
4,6(85 оценок)
Ответ:
nastua89723
nastua89723
17.03.2020

Тренировочное упражнение.

Определите грамматическую основу в предложениях. Над подлежащим надпишите, чем оно выражено.

Все добывается на свете трудом. Знание — лучшее богатство. Поднявший меч от меча и погибнет. Что медленно разгорается, то жарко горит. Храбрый пули не боится. Учиться всегда пригодится. (Пословицы) И тридцать витязей прекрасных чредой из вод выходят ясных. А ткачиха с поварихой, с сватьей бабой Бабарихой около царя сидят. (А. Пушкин) Две свечи мерцают слабо. (В. Луговской

Чтение теоретического материала.

[1] — с. 62-63.

[2] — с. 46-47.

Сравните два предложения. определите их грамматические основы.

Ждать — скучное занятие. Мне некогда тебя ждать.

Объяснение:

надеюсь

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