var
a,b:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('a + b = ',a+b);
writeln('a - b = ',a-b);
writeln('a * b = ',a*b);
writeln('a / b = ',a/b);
end.
Все верно. Но лучше использовать заместо цикла while, цикл for. И не нужна запись str, и.к. Изначально ужевводится в строковом виде
1) <span>1011012 - 111112=11100
2) </span>10110(2)+34(8)+15(1)+0(10)+0(10)=56(<span>10)
3) </span><span>1F116=11111000100010110</span>
program raf105;
var
s,p,n: real;
i,let: integer;
begin
write('Введите положенную сумму: ');
readln(s);
write('Введите ежегодный прирост (%): ');
readln(p);
write('Введите желаемую сумму: ');
readln(n);
while s < n do
begin
let+= 1;
s+= s/100*p;
end;
writeln('Первоначальная сумма увеличится до желаемой через ',let,' л.');
end.
<h3><em><u>Язык PascalABC</u></em></h3>
Int a[10][10];
a[0][2] = 1;
a[0][4] = 2;
a[0][6] = 3;
a[0][8] = 4;
a[2][2] = 5;
a[2][4] = 6;
a[2][6] = 7;