Ответ:
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.
3) Решения
2 Кбайта=2*2^13 бита= 2^14 бита
128 *128=2^7 *2^7=2^14 (количество пикселей)
2^14(бита) : 2^14 (кол. пикс.) =1 бит ( для одного пикселя)
2^1=2 - количество цветов (чёрно-белое изображение)
4) Решения
32Х64=2048 символов на 1 странице
2048Х15=30720 символов в 15 страницах
каждый символ по идее по 2 байта
30720Х2=61440 байта
В 1 килобите 1024 байта
61440:1024=60
ответ 60 килобайт
1.
Program z1;
var a,b:integer;
s:real;
begin
Writeln ('Введите первое число:');
readln(a);
Writeln ('Введите второе число:');
readln(b);
s:=(a+b)/2;
Writeln('Среднее арифметическое:',s);
end.
2.
Program z2;
uses graphabc;
begin
setbrushcolor(clblack);
rectangle(100,50,250,350);
setbrushcolor(clred);
circle(175,100,30);
setbrushcolor(clyellow);
circle(175,200,30);
setbrushcolor(clgreen);
circle(175,300,30);
end.
Не совсем конечно рационально, но зато работает.
var a,b,c,a1,b1,c1: integer;
begin
writeln('Введите переменную A:');
read(a);
writeln('Введите переменную B:');
read(b);
writeln('Введите переменную C:');
read(c);
a1:=a;
b1:=b;
c1:=c;
b:=a1;
c:=b1;
a:=c1;
writeln(a,' ',b,' ',c);
<span>end.</span>
