Var t1,t2:text; s:string; n:integer;
begin
assign(t1,'t1.txt'); reset(t1);
assign(t2,'t2.txt'); rewrite(t2);
n:=0;
while not eof(t1) do begin
readln(t1,s);
n:=n+1;
writeln(t2,n:5,' ',s);
end;
close(t1); close(t2);
<span>end.</span>
Program
Title;
Var i, A, B
:Integer;
Begin
WriteLn('Введите первое число');
ReadLn(A);
WriteLn('Введите второе число');
ReadLn(B);
If a>b
then writeln(a+b) else writeln(a*b)
Writeln('Задача решена')
End.
Program gt;
var n,i,p:integer;
begin
read(N);
p:=1;
for i:=2 to n do
begin
p:=p*i;
end;
write(p);
end.
3)
program gt;
var s:integer;
begin
for i:=5 to 100 do
begin
if(i mod 6=0)then s:=s+i;
end;
writeln(s);
end.
2)
program gtr;
var i,n:integer;
p,a:real;
begin
reaD(n);
p:=0;
for i:=1 to n do
begin
read(a);
p:=p+1/a;
end;
p:=n/p;
write(p);
end.
А = 25 - количество людей всего
а1 - количество людей по информатике
а2 = 16 - количество людей по математике
а3 = 10 - по физике
а5 = 7 - все три олимпиады
а4 = 12 - в двух любых
Формула свойств: А = -(а1+а2+а3) + а4 - а5
25 = -(26 + а1) + 12 - 7
25 = -26 - а1 +5
25 = -21 - а1
а1 = 4 - принимали участие в олимпиаде по информатике
1) Информационные процессы в природе - обмен информацией в случае опасности между животными (например, дельфинами); передача информации в генетическом коде - передача наследственных признаков.
2) В обществе - библиотека - хранение информации, накопленной предыдущими поколениями; передача информации в новостях; обмен информацией - при общении друзей.
3) В технике - передача информации по сетям (Интернет), хранение информации на жестком диске компьютера (винчестере).
