program qq;
var t, c: real;
begin
writeln('Введите кол-во минут');
readln(t);
c:= t*2;
writeln(c, 'бактерий будет через', n, 'минут');
end.
Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..
Об'єкт керування — це окрема машина, апарат, пристрій, технологічний процес або сукупність технічних засобів (машин, апаратів, пристроїв), які виконують технологічний процес, але при цьому потребують спеціально організованих впливів ззовні для досягнення поставленої мети керування.
<h2>Алгоритм решения</h2>
Рассмотрим первый тест. Мы знаем, что карточки пронумерованы от 1 до N, и что утеряна была ровно одна карточка. Пусть x равен сумме номеров всех карточек от 1 до N. Тогда y равен сумме номеров карточек, что даны нам во вводе. Значит, номер потерявшейся карточки - это x - y
x = 1 + 2 + 3 + 4 + 5 = 15
y = 3 + 5 + 1 + 4 = 13
ans = x - y = 15 - 13 = 2, <em>Ответ: 2.</em>
Правда, тогда придется "угадать" тест, где N равно единице, поскольку мы используем <u>do-while</u> для ввода. Логично, что в наборе из одной карточки могла потеряться только эта единственная карточка.
<h2>Код</h2>
Дан в приложении.
