давно
Старший Модератор
31795
6196
27.05.2008, 11:29
общий
это ответ
Здравствуйте, Хорост Андрей Викторович!
Программа в приложении.
Материал из Википедии :
Существуют два подхода к определению натуральных чисел — числа, используемые при :
<b>перечислении (нумеровании) предметов</b> (первый, второй, третий…) — подход, общепринятый в большинстве стран мира (в том числе и в России).
<b>обозначении количества предметов</b> (нет предметов, один предмет, два предмета…).
В программа работает по первому варианту.
Удачи!
Приложение:
var
w,x,y,z:word;
begin
z:=0;
repeat{в цикле вводим числа}
write(‘Enter number:‘);
readln(x);
inc(z);
{проверяем услововие}
if ((z=1)or(x<y))and(x>0) then
begin
y:=x;
w:=z;
end;
until x=0;
writeln(y:7,w:8);
end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.