Var
i, k, n1, n2: integer;
begin
n1 := 0;
n2 := 0;
{предполагается, что нумерация домов начинается с 1}
writeln('Вводите количество жителей в порядке возрастания номеров домов');
writeln('Окончание ввода - по отрицательному значению');
i := 1;
repeat
read(k);
if k > 0 then
begin
if i mod 2 = 0 then n2 := n2 + k
else n1 := n1 + k;
i := i + 1
end
until k < 0;
write(#13#10, 'Большее количество людей проживает на ');
if n1 > n2 then writeln('левой стороне улицы.')
else writeln('правой стороне улицы.')
end.
Тестовое решение:
Вводите количество жителей в порядке возрастания номеров домов
Окончание ввода - по отрицательному значению
13 56 25 31 98 35 72 64 -1
Большее количество людей проживает на левой стороне улицы.
Начальный день, когда растение было высотой 20см, считаем нулевым. Через день растение вырастет на 2 см, станет 22 см и это будет 1-й день.
#include <stdio.h>
void viewbooks()
{
FILE *f;
char c, word[50]={0};
int k=0,i,n;
if((f=fopen("books.txt","r"))==NULL)
printf("error");
c=fgetc(f);
n=0;
for(;;)
{
c=fgetc(f);
if(c==EOF)
{
if(n==0)
{
printf("File is empty");
break;
}
printf("date: ");
for(i=0;i<k;i++)
printf("%c",word[i]);
break;
}
word[k]=c;
k++;
if(c=='"' || c==' ')
{
n++;
if(n==1)
printf("book 1:\n");
if(c=='"' && n%3!=0)
printf("name: ");
else if(n%3!=0)
printf("author: ");
if(n%3==0)
printf("date: ");
for(i=0;i<k-1;i++)
printf("%c",word[i]);
for(i=0;i<k;i++)
word[i]=0;
c=fgetc(f);
if(c==EOF)
break;
if(c==' ')
k=0;
else
{
word[0]=c;
k=1;
}
printf("\n");
if(n%3==0)
printf("book %d:\n",n/3+1);
}
}
fclose(f);
}
int main()
{
viewbooks();
return 0;
}
Пример входных данных(в файле books.txt):
"AAA" X.Y.Xyzf 1234
"Bb" A.V.Ytrewq 7777
"Ccccc" P.M.Qwerty 1011
"Dddd" I.U.Qwerty 1113
Выходные данные:
book 1:
name: AAA
author: X.Y.Xyzf
date: 1234
book 2:
name: Bb
author: A.V.Ytrewq
date: 7777
book 3:
name: Ccccc
author: P.M.Qwerty
date: 1011
book 4:
name: Dddd
author: I.U.Qwerty
date: 1113
Примечания:
В файле books.txt название книги должно быть в двойных кавычках. Название книги, автор и дата отделяются друг от друга только одним пробелом.
1.128байт
2,80 бит, 12 288 бит
3.250 Кб
4.1,5 Гб=1536Мб=1 572 864Кбайт