<span>101111000,100 = </span>376,5
<span> 101010110,010 = </span>355,25
Программа вкратце.
Если посещал уроки то сможешь ее написать чтоб работала.
В условии задачи ошибка, наверное вместо - написал плюс.
<span>y = sqrt(х+5). если x>0.
пусть здесь будет так: у= sqrt(5-х). если x<0
</span>
Program radical;
var x,y:integer;
Begin
readln(x);
if ((x+5) >= 0) and ((5-х) >=0)) then begin
{ проверка чтобы не-было меньше нуля }
if (x>0) then
y = sqrt(x+5);
else if (x<0) then
y = sqrt(5-x);
writeln('результат=', y);
end
else
writeln("нельзя извлечь корень из отрицательного числа");
readln();
End.
Итак...
Если я правильно понял то необходимо узнать стоимость стоимость 100 грамм конфет, а после сколько стоит 1кг200гр, 1кг400гр ну и так далее к 2 кг.
Вам необходимо поделить своё число на 1000, так мы узнаем стоимость 1 грамма. Потом множим это число на 100 и узнаем стоимость 100 грамм конфет. После этого цже не сложно узнать сколько стоит 200, 400, 600, 800 грам. Прибавляем эти числа к нашему натуральному числу в условии и вуаля аолучаем необходимые сведения.
10101+101=10202
Проверка: 10202-101=10101
------------------------------------------
1101+111= 1212
Проверка: 1212-111=1101
------------------------------------------
10101•101=1.020.201
Проверка: 1.020.201:10101=101
------------------------------------------
1111•101=112.221
Проверка: 122.221:101=1111
//PascalABC.NET 3.1 сборка 1200
begin
var s := ReadlnString('s =');
s := s.Replace('А', '*_*');
s := s.Replace('Б', 'А');
s := s.Replace('*_*', 'Б');
s := s.Replace('а', '*_*');
s := s.Replace('б', 'а');
s := s.Replace('*_*', 'б');
writeln(s);
end.