Ответ:
program ideone;
uses SysUtils;
function WordsCount(s: string): integer;
var
i, count: Integer;
begin
count := 0;
for i := 1 to Length(s) do
begin
if (s[i] <> ' ') and ((i = 1) or (s[i-1] = ' '))
then inc(count);
end;
WordsCount := count;
end;
var
a: string;
count: Integer;
isUrgent : Integer;
cost: Double;
begin
writeln('Введите строку A: ');
read(a);
count := WordsCount(a);
writeln('Посылка срочная? Если да, введите 1, иначе 0: ');
read(isUrgent);
cost := count * 2;
if (isUrgent = 1) then cost := 1.2*cost;
writeln(Format('Стоимость посылки составляет %.2f рублей.', [cost]));
end.
231
110111101
435
1605
110101001010
А7
7) ?
5F, 153, 128
Var
i,x1,x2:integer;
y:real;
begin
writeln('введите х нач и х конечное');
readln(x1,x2);
writeln('введите шаг для х');
readln(i);
while x1<=x2 do
begin
if sin(x1)/Cos(x1)<>0 then
begin
y:=(Sin(x1)+2*Cos(x1))/(Sin(x1)/Cos(x1));
writeln(x1:4,y:10:2);
end;
x1:=x1+i;
end;
end.
n:=5;
x:=0;
for i:=1 to n do
x:=i;
После выполнения цикла значение x будет равно 5
Label1.Caption:=IntToStr(x);
На экран будет выведено 5
Ответ:Б)DCF
я сегодня решал, просто рубли делишь на мб/кб/гб пока не останется байт