Const n = 10;
var b: Integer;
var a: array[1..n] of integer;
begin
for var i := 1 to n do
begin
Read(a[i]);
b+=a[i];
end;
Writeln(b/n);
end.
<em>Microsoft Office :</em>
<em>Microsoft Office Word</em>
<em>Microsoft Office Open XML</em>
<em>Microsoft Office Excel</em>
<em>Microsoft Office Outlook</em>
<em>Microsoft Office PowerPoint</em>
<em>Microsoft Office Publisher</em>
<em>Microsoft Office Visio</em>
<em>Microsoft Office Project</em>
<em>Microsoft Query</em>
<em>Microsoft Office OneNote</em>
<em>Microsoft Office Groove 2007</em>
<em>Microsoft Office SharePoint Designer</em>
<em>Microsoft Office Picture Manager</em>
<em>Microsoft Office Document Image Writer — виртуальный принтер, печатающий вформат Microsoft Document Imaging Format</em>
<em>Microsoft Office Diagnostics — диагностика и восстановление поврежденныхприложений Microsoft Office.</em>
<em> </em>
Var s,r,p,m:real;
begin
write('Расстояние до дачи (км) —> ');
readln(s);
write('Расход бензина (литров на 100 км пробега) —> ');
readln(r);
write('Цена литра бензина (руб.) —> ');
readln(p);
m:=2*s*r*p/100;
writeln('обойдется в ',m:5:2,' руб.');
end.
Пример:
Расстояние до дачи (км) —> 67
Расход бензина (литров на 100 км пробега) —> 8.5
Цена литра бензина (руб.) —> 6.5
обойдется в 74.04 руб.
Вот решение, но можешь сам изменить если что-то не так.
Function IsPrime(x: integer): boolean;
var s, n: integer;
begin
Result := x > 1;
s := Trunc(Sqrt(x)) + 1;
n := 1;
while (n < s) and Result do begin
n := n + 1;
Result := Result and (x mod n > 0);
end;
end;
var x, s: integer;
begin
readln(x);
if IsPrime(x) then
writeln('prime')
else
writeln('composite');
<span>end.</span>