Program pas;
var
a:array[1..30] of integer;
i, k: integer;
s: real;
begin
s:=0;
k:=0;
for i:=1 to 30 do
readln(a[i]);
for i:=1 to 30 do
begin
if (not(a[i]mod 2=0)) then
s:=s+a[i];
inc(k);
end;
s:=s/k;
write(s:4:0);
end.
Var c: Char;
s: String;
i,k,p: Integer;
Begin
ReadLn(c); {Чтение заданного символа}
ReadLn(s); {Чтение заданного слова}
p:= Pos(c,s); {Определяем позицию символа}
If (p=0) Then {Функция вернёт 0, если символ не будет найден}
WriteLn('Такого символа в слове нет.')
Else {Если символ есть, то ...}
Begin
WriteLn('Указанный символ расположен на позиции: ',p);
k:= 0; {k хранит количество вхождений}
p:= Length(s); {p хранит длину строки(слова)}
For i:=1 To p Do {Пробегаем по всем символам слова}
If (s[i]=c) Then inc(k); {Если символ совпадает, увеличиваем на 1 переменную k}
WriteLn('Количество вхождений данного символа: ',k);
End;
End.
M = int(input("Введите возраст: "))
k = m % 10
if (m>9)and(m<20)or(m>110)or(k>4)or(k==0):
print("Вам",m,"лет.")
else:
if k==1: print("Вам",m,"год.")
else: print("Вам",m,"года.")
Пример:
<span>Введите возраст: 21
Вам 21 год.</span>
<span>Тут всё просто - </span>
<span>1) Находишь наименьшее из трёх чисел. </span>
<span>2) Оставшиеся два числа перемножаешь.</span>
Алгоритмы c ветвлениями.
Форма организации действий, при которой в зависимости от выполнения некоторого условия совершается одна или другая последовательность шагов