Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею.

Тексты задач?

Выкладывай задания, сейчас всё порешаем

275. Даны действительные числюююч10бн1юююн10.Получить х1*y1+x2*y…x10*y10. как упростить решение если исходные данные имеют следующий порядок x1,y1,…x10,y10.

252. Дана строка символов, подсчитать общее число вхождений символов +,-,* в заданную строку.

86. Дано натуральное число n сколько цифр в числе n.

56. Даны действительные положительные числа a,b,c,x,y. Выяснить пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x,y. Просовывать кирпич разрешается только так, чтобы каждое из ребер было параллельно или перпендикулярно каждой из сторон отверстия.

323. дано натуральное число n. Получить все натуральные числа, меньше n и взаимно простые с ним.

507. Сведения об ученике состоят из его имени и фамилии и названии класса (года обучения и буквы), в котором он учится: выяснить, имеются ли в школе однофамильцы.

Задача 252 (Дана строка символов, подсчитать общее число вхождений символов +,-,* в заданную строку.)
var
s : String;
i, z : integer;
begin
Write('Input string: ');
ReadLn(s);
z := 0;
for i := 1 to Length(s) do
begin
if (s[i] = '-') or (s[i] = '+') or (s[i] = '*') then
Inc(z);
end;
WriteLn(z);
ReadLn;
end.

Вот 2 способа решения задачи № 86 (Дано натуральное число n сколько цифр в числе n.)
Первый способ
var
i, z : LongInt;
begin
Write('Введите число: ');
ReadLn(z);
i := 1;
while z >= 10 do
begin
z := z div 10;
Inc(i);
end;
Write('Число цифр: ', i);
ReadLn;
end.

и второй, немного читерский
var
s : String;
z : LongInt;
begin
Write('Введите число: ');
ReadLn(z);
Str(z, s);
Write('Число цифр: ', Length(s));
ReadLn;
end.

Задача №56 (Даны действительные положительные числа a,b,c,x,y...)
var
a, b, c, x, y : integer;
procedure Swap(var z1, z2 : integer);
var
tmp : integer;
begin
tmp := z1;
z1 := z2;
z2 := tmp;
end;
begin
Write('Введите размеры кирпича (a, b, c): ');
ReadLn(a, b, c);
Write('Введите размеры отверстия (x, y): ');
ReadLn(x, y);
if a > b then
Swap(a, B);
if b > c then
Swap(b, c);
if a > b then
Swap(a, B);
if x > y then
Swap(x, y);
if (x >= a) and (y >= B) then
Write('Кирпич пройдет через отверстие')
else
Write('Кирпич не пройдет через отверстие');
ReadLn;
end.

Сообщение отредактировал AquaTour - 14.11.2006 - 3:48

и еще у меня одна задвча н графику, надо танк на рисовать, как мнне сюда рисунок выложить?


Сообщение отредактировал main - 14.11.2006 - 21:15

А зенитку тебе в трех проекциях нарисовать, случайно, не надо?
PS Рисунок можно запостить кнопкой "IMG"....

Уточни условия заданий 507, 323, 275 и выкладывай рисунок танка - ща порешаем!