<span>Для изменения стандартного форматирования текста на слайдах необходимо эти изменения внести в образец слайдов.
</span>1. При изменении шрифтов и маркеров.
<span>2. Для вставки картинок, которые должны появиться на слайдах презентации. </span>
<span>3. Изменение расположения, размера и формата рамок. </span>
Незнаю как тебе объяснить, сам до конца не понял как не целые числа переводить.
12/8 = 1 остаток останется 4
1/8 = 0 остаток останется 1
12 в 10-тичной = 14 в 8-ричной
Теперь переводим дробную часть 12.5 в 10-тичной системе в 8-ую систему:
0.5·8 = 4.0
0.510 = 0.48
как то так.... я не уверен, вроде правильно.
1)
var a:real;
begin
writeln('Введите число');
readln(a);
if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');
end.
2)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');
end.
3)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');
end.
4)
var a,b:longint;
begin
writeln('Введите числа');
readln(a,b);
if(a>b) then writeln(b) else writeln(a);
end.
5)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a>0) then a:=a+5 else a:=a-1;
writeln(a);
end.
6)
var a,i,k:longint;
begin
k:=0;
for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;
writeln(k,' ','положительных чисел');
end.
#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 название книги должно быть в двойных кавычках. Название книги, автор и дата отделяются друг от друга только одним пробелом.
//Pascal ABC.NET 3.1 сборка 1219
Var
rm,rb,s:real;
begin
readln(rm,rb);
if rm>rb then
begin
writeln('Внутренний радиус больше внешнего');
swap(rm,rb);
end;
s:=pi*(sqr(rb)-sqr(rm));
writeln('S=',s);
end.
Пример ввода:
7
4
Пример вывода:
Внутренний радиус больше внешнего
S=103.672557568463