Совет Федерации РФ является верхней палатой парламента РФ, структура которого утверждена конституцией этого преступного режима, принятой в результате государственного переворота 1993 года.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
<u>Результат</u>
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.
Program n1;
type z = array of integer;
var a: z;
i,n,x,j,buf: integer;
f: text;
begin
randomize;
assign(f,'input.txt');
reset(f);
n:=0;
readln(f,x);
setlength(a,x);
while not eof(f) do
begin
read(f,a[n]);
n:=n+1;
end;
close(f);
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]>a[j] then begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
assign(f,'output.txt');
rewrite(f);
for i:=0 to x-1 do write(f,a[i],' ');
close(f);
end.
67108864 байт.
Это если слева 1/16 Гбайт, т.е. 0,0625 Гбайт.
1. Делаешь саму презентацию
2. Затем разделяешь ее на части
3. Придумай себе вступление. Для твоей темы будет актуально что-то вроде этого: "Существует 193 страны ( гос-ва ) во всем мире. Сегодня я расскажу о некоторых из вас."
При рассказе самой презентации рекомендую делать паузы и упоминать о традициях и\или праздниках той или иной державы