program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.
Ответ дал: Гость
: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’); write (‘n=’); readln (n);
: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’); write (‘n=’); readln (n); i: =1; s: =0; repeat s: =s+i; i: =i+1; until i> n; writeln (‘s=’,s);
за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.
Популярные вопросы