Var i,s,k:integer;
begin
i:=11;
s:=0;
k:=0;
repeat
s:=s+i;
i:=i+1;
k:=k+1;
until i>20;
write ('Cреднее арифметическое чисел ОТ 11 ДО 20 равно: ', s/k)
end.
Var s1,s2 : String;
i,n : Byte;
Function Min(a,b : Byte) : Byte;
Begin
If a<b then Min:=a else Min:=b;
end;
Begin
Readln(s1);
Readln(s2);
n:=0;
For i:=1 to Min(Length(s1),Length(s2)) do If s1[i]=s2[i] then Inc(n);
Writeln(n);
end.
Кнопки расположены на клавиатуре так чтобы бвло удобнее писать:пропорциально распределены гласные и согласные. В центр5 самы часто используемые буквы, по окраинам-менее используемые. Расположение кнопок на клавиатуре было придумано с развитием печатных машинок1для удобства использования.
<span>b. Для того чтобы число делилось на 2, достаточно, чтобы оно было четным
</span><span>d. Для того чтобы число делилось на 3, достаточно, чтобы сумма его цифр </span>
Var y,k:real;
Begin
Write('y = ');ReadLn(y);
if y > 0 then k:=y*y/2
else k-:=Abs(1.5*y*y);
WriteLn('k = ',k);
End.