Дан фрагмент электронной таблицы, в первой – числа, а во второй - формулы. а в с d =a1-c1. = ? =c1-d1. =a1+d1 какая из формул должна быть записана в ячейке в2, чтобы построенная после выполнения вычислений круговая диаграмма по значениям диапазона ячеек а2 : d2 соответствовала рисунку? 1)=b1/2 2)=d1*2 3)=c1-b1 4)=2*b1
S:string;
i:integer;
begin
ReadLn(S);
i:=1;
While i<=Length(S) do
Begin
if ('0'<=S[i])and(S[i]<='9') then
Case S[i] of
'0':
Begin
Delete(S,i,1);
Insert('ноль',S,i);
end;
'1':
Begin
Delete(S,i,1);
Insert('один',S,i);
i:=i+3
end;
'2':
Begin
Delete(S,i,1);
Insert('два',S,i);
i:=i+2
end;
'3':
Begin
Delete(S,i,1);
Insert('три',S,i);
i:=i+2
end;
'4':
Begin
Delete(S,i,1);
Insert('четыре',S,i);
i:=i+5
end;
'5':
Begin
Delete(S,i,1);
Insert('пять',S,i);
i:=i+3
end;
'6':
Begin
Delete(S,i,1);
Insert('шесть',S,i);
i:=i+4
end;
'7':
Begin
Delete(S,i,1);
Insert('семь',S,i);
i:=i+3
end;
'8':
Begin
Delete(S,i,1);
Insert('восемь',S,i);
i:=i+5
end;
'9':
Begin
Delete(S,i,1);
Insert('девять',S,i);
i:=i+5
end;
end;
i:=i+1
End;
WriteLn(S);
ReadLn;
end.
Для того, чтобы данная программа заработала, нажмите: Файл → создать → простейшая программа.
Если русские буквы отображаются правильно, нажмите правой кнопкой мыши по коду, выберите: параметры файла → кодировка → Ansi (cp1251).
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
Console.Write("Сумма покупки: ");
double S = int.Parse(Console.ReadLine());
if (S > 500)
{
if (S > 1000) S *= 0.95;
else S *= 0.97;
Console.WriteLine("Сумма покупки с учётом скидки: {0:0.00}",S);
}
else Console.WriteLine("Скидка не предоставляется");
Console.ReadKey();
}
}
}