10 50 true
8 45 true
6 40 true
4 30 true
2 25 true
0 20 false
k:=10;
t:=50;
while k>1 do
begin
k:=k-2;
t:=t-5;
end;
write(k,n);
А) Панель инструментов, рабочее поле, шкала времени, панель свойства
б) Инструмент используется для заливки всего текста или определённой области
Program gt;
var a:array[1..1000]of integer;
i,s,n:integer;
begin
read(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i] mod 5=0)then s:=s+a[i];
end;
writeln(s);
end.
Считая, что функция random() возвращает <span>случайные числа с равномерным </span><span>законом распределения и что 7/16*100 = 43,75, 8/16*100 = 50, 1/16 = 6,25, задачу можно решить так:
begin
var c:=random(1,16);
case c of
1,5,7,9,11,13,15: writeln(c,' - Красный');
2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
else writeln(c,' - Зелёный');
end;
end.
Пример:
7 - Красный
</span>
#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 название книги должно быть в двойных кавычках. Название книги, автор и дата отделяются друг от друга только одним пробелом.
--> 4 единицы в записи
--> 2 единицы в записи.
--> 4 нуля в записи
--> 2 нуля в записи