Var r,w,s:integer;
begin
writeln('Введите исходные данные:');
write('Величина вклада (руб.): ');
readln(r);
write('Ежемесячная величина дохода (руб) ');
readln(w);
s:=r+3*w;
write('Сумма вклада по окончании трех месяцев: ',s,' руб.');
s:=r+6*w;
write('Сумма вклада по окончании шести месяцев: ',s,' руб.');
s:=r+12*w;
write('Сумма вклада по окончании года: ',s,' руб.');
end.
101
x
11
________
101
+
1010
=1111
2) 10|010|111 = 227 в восьмеричной СС и |1001|0111=97 в шестнадцатеричной СС
10|011=23 в восьмеричной СС и 1|0011=13 в шестнадцатеричной СС
uses
GraphABC;
var
bool: string;
circle: byte;
begin
Line(window.Center.X, window.Center.Y, window.Width - 10, window.Center.Y);
repeat
circle += 1;
writeln('Бежим...');
for i: byte := 0 to 11 do
begin
arc(window.Center.X, window.Center.Y, circle * 2 + 20, i * 30, (i + 1) * 30);
System.Threading.Thread.Sleep(20);
end;
writeln('Пробежишь ещё кружочек?');
repeat
readln(bool);
if (bool in ['да', 'нет']) then
break
else
writeln('Что?! Я не расслышал!');
until (false);
until (not (bool = 'да'));
Writeln('Молодец! За столько кругов можно и на марафон... А пробежал ты... ', circle, '!');
end.
Ответ:
3
Объяснение:
= 155
= 159
155<x<159
Под это неравенство подходят 3 целых числа: 156, 157, 158
Оно же на казахском!!!,не чем помочь не могу,прости)