uses Graphabc;
begin
SetwindowWidth(600);
setwindowheight(400);
SetPenWidth(2);
setpencolor(clblack);
circle(500,100,50);
floodfill(500,100,clyellow);
line(250,100,300,50);
line(300,50,350,100);
line(350,100,250,100);
floodfill(300,70,clgreen);
line(225,200,300,100);
line(300,100,375,200);
line(375,200,225,200);
floodfill(300,150,clgreen);
line(200,300,300,200);
line(300,200,400,300);
line(400,300,200,300);
floodfill(300,250,clgreen);
rectangle(285,300,315,325);
floodfill(300,310,clbrown);
line(0,300,100,350);
line(100,350,200,325);
line(200,325,400,325);
line(400,325,600,375);
line(600,375,2000,375);
floodfill(50,350,clgreen);
end.
Решить задачу можно так:
var i,sum:integer;
begin
sum:=0; i:=0;
while sum<1322 do
begin
i:=i+1; sum:=sum+i;
end;
writeln(i,' ',sum);
writeln('Дважды написали ',i-(sum-1322));
<span>end.
Получается 47</span>
Для начала посчитаем сколько символов в твоем предложении (пробелы, знаки препинания, буквы). Их там 28 [Терпение и труд все перетрут]. Как мы знаем, в кодировке Unicode - 1 символ занимает 16 бит памяти. Умножим 28 символов на 16 и получим 448 бит [28*16=448 бит]. Теперь, если это требуется, переведем биты в байты и килобайты. 1 байт памяти занимает 8 бит. Делим 448 бит на 8 получаем 56 [448/8=56 байт]. 1 кбайт памяти, в свою очередь, занимает 1024 байт памяти. Делим 56 байт на 1024 <em>(советую использовать калькулятор) </em>получаем 0,05 кбайт [56/1024=<span>0,0546875</span>].
В ответе пишем одно из получившихся значений, <u>которое требуется написать</u> [448 бит или 56 байт или 0,05 кбайт]
Var
f: Text;
n, s, e: integer;
begin
n := 0;
s := 0;
Assign(f, 'input.txt');
Reset(f);
while not Eof(f) do
begin
readln(f,e);
n := n + 1;
s := s + e
end;
Close(f);
writeln('В файле ', n, ' чисел; их сумма равна ', s)
end.
Тестовое решение:
В файле 10 чисел; их сумма равна 213
Содержимое файла input.txt:
24
37
14
-6
42
58
3
14
0
27
