шесть футбольных команд А, Б, В, Г, Д, Е должны сыграть матчи каждая с каждой. Уже сыграли А с В, Г, Е. Б с В, Д, Е. В с А, Б. Г
irina157
всего должно быть 15 игр , сыграно 9 игр , а осталось 6 игр. Осталось : А-Б, А-Д, Б-Г, В-Г, В-Д, В-Е.
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<span>Program skazka;
Uses crt;
const n:string= 'nalevo';
a:string= 'napravo';
v:string= 'vpered';
Var p:string;
begin
clrscr;
writeln (' Kyda poidet geroi? nalevo,napravo ili vpered?');
readln (p);
if p=n then writeln ('Nalevo poidet - kon9 poter9et ');
if p=a then writeln ('Napravo poidet - cam propadet ');
if p=v then writeln ('Vpered poidet - nevesty naidet ');
Readln
end<span>.</span></span></span>
//PascalABC.Net 3.1.0.1200
var
x0, xk, dx, x: real;
function f(x: real): real;
begin
f := x * x * x + 3;
end;
begin
write('Введите промежуток и шаг ([a,b] h) ');
readln(x0, xk, dx);
x := x0;
writeln(' x ':10, ' | ', ' f(x) ':10);
repeat
writeln(x:10:3, ' | ', f(x):10:3);
x := x + dx;
until x > xk;
end.
Если длина ребра именно равна 2 (a=2), то решаем так:
begin
Writeln(2*2*2,' ', 2*2); //Первое число - объём куба, второе - площадь боковой поверхности
end.
А если нам следует ввести значение a, то решаем так:
var a:int64;
begin
read(a);
Writeln(a*a*a,' ', a*a); //Первое число - объём куба, второе - площадь боковой поверхности
end.