program n_1;
var n, m, i: int64;
begin
readln(n);
m:=1;
i:=0;
while n>0 do begin
if (n mod 10) mod 3 = 0 then begin write(m,' '); i:=1; end;
n:=n div 10;
m:=m+1;
end;
if i=0 then write('Таких разрядов нет');
end.
Каждый символ несет в себе 1 байт информации, поэтому нужно просто посчитать количество символов. Важно: пробел - это тоже символ, также как и точка, запятая, дефис и т.д.. В данном сообщении 26 букв и 3 пробела, значит 29 символов, т.е. 29 байт.
Var A,B:real;
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
Begin
Write('Введите два числа: ');
ReadLn(A,B);
Write('Ответ: ');
Case C of
1:WriteLn(A+B);
2:WriteLn(A-B);
3:WriteLn(A*B);
4:WriteLn(A/B);
End;
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
End;
WriteLn('Пока!');
End.
Вывод результат, точно как в условии:
Var A,B:real;
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
Begin
Write('Введите два числа: ');
ReadLn(A,B);
Write('Ответ: ');
Case C of
1:
if B < 0 then WriteLn(A,B,'=',A+B)
else WriteLn(A,'+',B,'=',A+B);
2:
if B < 0 then WriteLn(A,'+',-B,'=',A-B)
else WriteLn(A,B,'=',A-B);
3:
if B < 0 then WriteLn(A,'*(',B,')=',A*B)
else WriteLn(A,'*',B,'=',A*B);
4:
if B < 0 then WriteLn(A,':(',B,')=',A/B)
else WriteLn(A,':',B,'=',A/B);
End;
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
End;
WriteLn('Пока!');
End.
Пример:
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
4
Введите два числа: 4
-2.5
Ответ: 4:(-2.5)=-1.6
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
1
Введите два числа: -3
-6
Ответ: -3-6=-9
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
0
Пока!
var
m: Real;
i: Integer;
begin
m := 1.5;
for i := 1 to 7 do begin
WriteLn (i, ' сентября количество биомассы составляет ', m:10:7, ' т' );
m := m * 1.3;
end;
end.
