<span> Если число оканчивается цифрой 0, то оно делится на 5. Известно, что данное число не делится на 5. Следовательно это число оканчивается на любое число,которое не оканчивается на 5 и 0</span>
Var a,b,c,max: Integer;
begin
writeln('Введите a,b,c');
readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('Наибольшее число: ',max);
end.
Var a: string;
s: integer;
begin
s := 0;
write ('Привет! Введи пароль: ');
readln (a);
while a<>'qwerty' do
begin
s := s+1;
write ('Не угадал! Введи пароль: ');
readln (a)
end;
writeln ('Теперь пароль введён верно! Количество попыток: ',s)
end.
Это свойство актуальность.... инфо 2010 года явно стара как этот мир