Ответ:
case m / 2 + 1 of // значения в case должно быть целым
Объяснение:
Начало
Введение a, b
c=a+b
написать с
Конец
2)
39=100111
3)
11010=26
4)
0.75=0.11
5)
1011+101=10000
1100+11=1111
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var s:=0;
while n>0 do (s,n):=(s+n mod 10,n div 10);
if s=10 then Writeln('Верно, что сумма цифр числа равна 10')
else Writeln('Неверно, что сумма цифр числа равна 10')
end
end.
<u>Пример</u>
Введите натуральное число: 50311
Верно, что сумма цифр числа равна 10
<u>№2</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var a:=new integer[10];
var good:=False;
while n>0 do begin
var i:=n mod 10;
a[i]+=1; n:=n div 10;
if a[i]>1 then Good:=True
end;
if Good then begin
Write('Цифры, встречающиеся больее одного раза: ');
for var i:=0 to 9 do
if a[i]>1 then Print(i);
Writeln
end
end
end.
<u>Пример</u>
Введите натуральное число: 15365123
Цифры, встречающиеся больее одного раза: 1 3 5
1)
s := 0;
for i := 1 to k do
begin
if i mod 2 <> 0 then
s:= s + i;
end;
2)
for i := 5 to 55 do
begin
if i mod 2 <> 0 then
writeln(i);
end;
3)
s := 1;
for i := n to m do
begin
s:= s * i;
end;
4)
s := 0;
for i := 10 to 15 do
begin
s:= s + i;
end;
обрамления там везде одинаковые