var s,a,i: integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(a);
s:=s+a;
end;
write('средний балл: ',s/10);
end.
Прости, если слишком детально, просто я такое всегда в 1 действие писал)
Var
s1, s2: string;
i: integer;
begin
readln(s1);
for i:=1 to length(s1) do
if s1[i] in ['0'..'9'] then
s2 := s2 + s1[i];
writeln(s2);
<span>end.</span>
если (пора года = зима) то
большинство деревьев сбрасывает листву
В случае, если пора года принимает значение true (истина), выполняется блок после ключевого слова "то", в ином случае ничего не происходит (по условию)
Ответ:Если ты -не мастер,то знаншь С
Объяснение: