Алг Возраст
нач
цел возраст, единицы лет
лит текст
вывод "Укажите полное число лет: "
ввод возраст
единицы лет:=mod(возраст,10)
выбор
при возраст>=5 и возраст<=20:текст:="лет"
при единицы лет=1:текст:="год"
при единицы лет>=2 и единицы лет<=4:текст:="годa"
иначе текст:="лет"
все
вывод "Мне "+цел_в_лит(возраст)+" "+текст
кон
439 десятиричная СС
При решении надо умножать 2 в какой либо степени
В программе алгоритм неверный, так дубликаты не найти.
Поэтому программа в основном переделана.
var
n:integer;
a:array[0..9] of boolean;
d,i:byte;
r:boolean;
begin
Writeln('Введите натуральное число'); Readln(n);
for i:=0 to 9 do a[i]:=False;
r:=False;
while n>0 do begin
d:=n mod 10;
if a[d] then begin
r:=True;
break
end
else a[d]:=True;
n:=n div 10
end;
if r then Writeln('да')
else Writeln('нет')
end.
var a: array [1..100] of integer;
i,n,min,max:integer;
Begin
read(n);
for i := 1 to n do
read(a[i]);
min:=a[1];
max:=a[1];
for i:= 1 to n do begin
write(a[i],' ');
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(min,max);
End.
Апельсин не имеет звука только если брызгает только не знаю звук это или нет
Аромат цитруса
Кожа гладкая как кожа, то есть шершавая
Пылесос
Большой, механический
Шумит
Есть запах перегревшего вентилятора, пыли
не имеет вкуса, так как это электроприбор
гладкий корпус
