Ne 1 І 2 г. 3 Задача Определить максимальное и минимальное значения из двух различных вещественных чисел. Известны два расстояния: одно в километрах, другое в футах (1 фут 0,305 м). Какое из расстояний меньше?
Известны две скорости, одна в километрах в час, другая B Mempax B секунду. Какая из скоростей больше?
Даны радиус круга и сторона квадрата. У какой фигуры площадь больше?
Даны объемы и массы двух тел из разных материалов. Материал какого из тел имеет большую плотность?
Известны сопротивления двух несоединенных друг с другом участков электрической цепи и напряжение на каждом из них. По какому участку Протекает меньший ток?
Даны вещественные числа a, b, c (a 0). Выяснить, имеет ли квадратное уравнение с данными параметрами решение
Известны площади круга и квадрата. Определить уместится ли круг в квадрате?
Известны площади круга и квадрата. Определить уместится ли квадрат в круте?
Известны площади круга и равностороннего треугольника. Определить умеетится ли круг в треугольнике?
Известны площади круга и равност ҷоннего треугольника. Определить уместится ли треугольник в круте?АТ Дано двузначное число. Определить, какая из его цифр больше: первая или вторая.
Дано днузначное число. Определить одинаковы ли его цифры
Дано двузначное число. Определить, кратна ли трем сумма его цифр.
Дано двузначное число. Определить, кратна и сумма сго шифр числу а. 9 12 15
i, j, k : word;
f : boolean;
function isSpace(ch : char) : boolean;
begin isSpace := false;
if ch = ' ' then isSpace := true;
end;
begin f := false;
repeat j := 0;
writeln('введите строку, состоящую из 2 слов');
readln(s);
for i := 1 to length(s) do
if isSpace(s[i]) then
begin
inc(j);
k := i; end;
if j =1 then f := true;
until f;
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1));
end.
недавно такую писала :)