Текстовый файл (формата: .txt)
Инструкция
<u>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
Writeln('Различных элементов- ',a.Distinct.Count)
end.
<em>Пример</em>
n= 10
Вводите: 456 12 6432654 -35424 -323421341 0 6432654 634222 -234532 34
Различных элементов- 9
Ну вот, вроде ,я сделал.Как ты сказал - без mod div и /
program znanija; const min=1; max=27;var s, d, e, c, n: Integer;begin repeat write('Введите n (', min, '<=n<=', max, ') '); Readln(n); until n in [min..max]; c:=0; for s:=1 to 9 do for d:=0 to 9 do for e:=0 to 9 do if s+d+e=n then Inc(c); writeln('Количество чисел с суммой цифр = ', n, ' = ', c);end.
Ответ:
создаешь переменную допустим а = 1001
запускаешь цикл на проверку элементов массива и в цикле условие
если массив[i] >=0 и массив[i] mod 10 <> 3 и mass[i]<a то а = массив[i]
конец цикла
а потом после цикла условие если а = 1001 то вывожишь Не найдено
иначе
выводишь а
Начало
выкопать в земле ямку
опустить в ямку саженец
засыпать ямку с саженцем землей
полить саженец водой
Конец
Начало и конец в овале, остальное в прямоугольнике.
Эта презентация Вам в помощь : http://u.to/A4wWBQ