TatianaSeliverstova64
?>

Var x, y, b: integer; begin write ('Input first number: '); readln (x); write ('Input second number: '); readln (y); writeln ('x = ', x, ', y = ', y); writeln ('Changing values... changing values...'); b := x; x := y; y := b; writeln ('x = ', x, ', y = ', y); readln end.

Информатика

Ответы

Баранов276
Var
  mini, min, n, i: integer;

begin
  i := 1; {порядковый номер введенного с клавы числа}
  readln(n); {считываем число в клавиатуры}
  min := n; {присваеваем минимуму первое введенное число. Если будет введено одно число то оно и есть минимум}
  mini := i; {присваеваем порядковый номер минимума}
 
  repeat{повторяем}
    i := i + 1; {порядковый номер введенного с клавы числа}
    readln(n); {считываем число в клавиатуры}
    if (n <> 0) and (min > n) then begin {если введенное число меньше минимума, то заменяем минимум}
      min := n; {присваеваем минимуму число}
      mini := i;{присваеваем порядковый номер минимума}
    end;
  until n = 0;{до тех пор пока n=0}
 
  writeln('index = ', mini);
end.

Что еще не понятно?
balabinatanya7174
+ в большенстве форматов можно править
+ можно скопировать сколько угодно раз
+ можно пересылать по электронной почте и тп.
+ можно распечатать
+ в большенстве форматов можно покопировать по частям
+ можно перевести с с электронного переводчика
+ не занимает много физического места
+ меньше подвержен порче от физических факторов (типа помять, порвать, ...)

- требует некого устройства для чтенья
- требует электричества/энергии для просмотра
- нельзя подтереться в туалете, разжечь огонь, написать заметку, завернуть рыбу
- изза копирования может иметь кучу различных вариантов и нужно дополнительно выяснять, где последние правки, а что есть устаревшая копия, мердж и тп
- трудно уследить за распрастранением документа

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Var x, y, b: integer; begin write ('Input first number: '); readln (x); write ('Input second number: '); readln (y); writeln ('x = ', x, ', y = ', y); writeln ('Changing values... changing values...'); b := x; x := y; y := b; writeln ('x = ', x, ', y = ', y); readln end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

shilinmikhaillg
АлександрАнатолий
saltikovaK.S.1482
nalich8524
sonicegle
S.V. Zhoraevna1677
Yurevich1243
chulki-kupit
ЭдуардовнаКлючников1361
Татьяна1045
rigina82
ddobrov32133
re-art
alekbur
petrakovao
▲