Я не знаком особо с паскалем, но могу направить на путь истинный :b Кароче.. Подсчет количества: если билет счастливый count++; (все логично) Но как определить счастливый ли билет: Припустим у нас номер билета лежит в массиве: ticket, то if ((strval(ticket[0]) + strval(ticket[1] + strval(ticket[2])) == (strval(ticket[3]) + strval(ticket[4]) + strval(ticket[5]))) count++;
strval - преобразовнаие из строки в число. string --> integer Если синтаксис знаешь, то напишешь прогу, если нет.. то жди ответа других.
Var a, b: integer; var c: string; begin writeln('Введите 1 число.'); readln(a); writeln('Введите 2 число.'); readln(b); writeln('Знак операции.'); readln(c); if c='*' then writeln(a*b); if c='/' then writeln(a/b); if c='-' then writeln(a-b); if c='+' then writeln(a+b); end. 2 ЗАДАЧА var a, b: real; begin writeln('Зарабаток Пети:'); readln(a); writeln('Зарабаток Петрова:'); readln(b); if a>b then writeln('Петя заработал больше Петрова.') else if a=b then writeln('Петров и Петя заработали одинаково.') else writeln('Петров заработал больше Пети.'); writeln('Среднее: ', (a+b)/2); end.
Если и пойдёт, то с большим скрипом. Оперативки как минимум 1 ГБ надо, реально - все 4. А это уже средний ПК. Впрочем, пробуй.