помогите пожайлуста решить задачки....
1)дано натуральное число, удалить все цифры А(А вводится с клавиатуры)
2)найти все числа от 1 до 200,у которых количество делителей равно N(N вводится с клавиатуры)
3)найти сумму чисел от 1 до 200,у которых 5 делителей.
заранее благодарна.....)

Я не уверен, что прошлое сообщение до вас дошло, поэтому отправлю ещё раз
мой адрес tema290292@yandex.ru

здравствуйте! помогите пожалуйста решить задачки:
1)Дано натуральное число:
а)сколько чётных цифр в данном целом числе;
б)верно ли, что в данном числе встречаются цифры А и В (А и В вводятся с клавиатуры).


пожалуйста опишите все подробно и самым легким способом! заранее спасибо!

Здравствуйте!Помогите решить задачу...
1.Найти все натуральные числа a, b и c из интервала от 1 до 20, для которых выполняется равенство: a*a + b*b = c*c.

Здравствуйте! помогите пожалуйста решить мне две задачи, а то я немогу из решить да же нет не каких мыслей!
1 Найти сумму чётных делителей натурального числа.
2Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a и b, а площадь равна S (a и b принадлежит интервалу от 1 до 20, а S вводится с клавиатуры).

Спасибо, буду пробовать=)
"а в моем примере именно ROUND"
при округлении числа 23568,9 получится 23569, т.е уже отличается от "оригинала". а trunc ведь просто отбросит дробную часть.

Здравствуйте. У меня такой вопрос. Где можно взять руские шрифты для графического режима Паскаля. А то у меня в текстовом формате с русским языком работать можно, а в графическом нет

А если при помощи прерывания 10h переключить активную страницу, то write и writeln будут работать с ней или с 0-ой? просто я щас пробовал сделать другую страницу активной, то там ничего не выводилось.
asm
mov ah, 05h;
mov al, 1;
int 10h;
end;
вот если так переключать.

Спасибо большое.
а вот по какому адресу находятся остальные 7 страниц?
Кстати, насчет предыдущего поста Евгения - то лучше использовать вместо round - trunc.

Спасибо Вам, Борис, за ответ!

Действительно, просто.

...А к чему программа - не очень понял
......Да, собственно в виде иллюстрации, примера, так сказать...

Здравствуйте, Борис!
Подскажите, пожалуйста, есть ли в Паскале функция округления числа до конкретного количества знаков после запятой.
Например, число 2,356897111022 округлить до четвертого знака после запятой, т.е для расчета получить число 2,3569.
В данном случае получается, просто надо отбросить лишние значения.
==================================================================
Программа работает, но уж очень большую погрешность расчетов имеет
(массивы использовать нельзя - условие такое)
==================================================================
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
{ найти сумму N элементов поледовательности:
X(i)=0.7X(i-1)^3+0.3X(i-2)-0.1X(i-3)
при X(0)=X(1)=X(2)=1

X(i-1) и др. - это так обозначил индекс
}
Program Summa;
Uses CRT;
Const
N = 7;
Var
sum, d, Q, R, Z : Real;
i : integer;
BEGIN
Q := 1; R := 1; Z := 1; sum := 0;
For i := 1 to N do begin
d := 0.7*sqr(Q)*Q+0.3*R-0.1*Z;
sum := sum + d;
R := Q; Z := R; Q := d;
WriteLn(''***********************'');
WriteLn(''Promezhutochnoe d '',d:9:8);
WriteLn(''Promezhutochnya summa '',sum:9:8);
WriteLn(''***********************'');
end;
WriteLn(''Summa '',N,'' elementov sostavlyaet '',sum:9:8);
WriteLn(''================================================'');
ReadKey
END.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Так что с моим вопросом?

Здраствуйте.
У меня такой вопрос:
есть ли в текстовом режиме видео-страницы(если конечно их можно так назвать)? если есть, то как с ними работать?

Я отправлял программу написаную мной! И текст её написания! Там указано моё имя вы поместили её на сайт? Как мне узнать? И Куда? Её название KK.
Вот код:
program KK;

var

a,x,b,c:real;

begin

writeln(''Автор: Рябикин Геннадий'');

writeln(''Что бы программа извлекала корень введите (1), что бы возводила в квадат введите (2)'');

write(''Enter='');read(x);

while x=1 do

begin

writeln(''Программа будет извлекать корень'');

write(''Введите число='');read(b);

a:=(sqrt(b));

write(''Корень из '');write(b:6:2);write('' Равен='',a:6:2);

readln(c);

end;

while x=2 do

begin

writeln(''Программа будет возводить в квадат'');

write(''Введите число='');read(b);

a:=(sqr(b));

write(b:6:2);write('' в квадрате='',a:6:2);

readln(c);

end;

end.

Здравствуйте, Борис!
Перешел к изучению функций и процедур, ну и сразу же вопросик:
написал минипрограммку, а в ней что-то напутал, помогите разобраться, пожалуйста.
=============
=============
Дана целочисленная прямоугольная матрица.
Определить:
Количество строк, не содержащих ни одного нулевого элемента
(оформить в виде функции, результат подпрограммы вывести в главной программе)

===========================
Program Var1;
Uses CRT;
Const
N=5; M=7;
Type
mas = array[1..N,1..M] of integer;
Var
a : mas;
f_in : text;
i, j : integer;
{---------------------------------------------}
Function nol(const L:mas):integer;
Var
i, j, k : integer;
Begin

For i:=1 to N do
k:=0;
For j:=1 to M do begin
if L[i,j] <> 0 then inc(k);
nol:=k;
end
end;

{---------------------------------------------}
Begin
{$I-}
assign(f_in,''e:PAStext2.txt'');
reset(f_in);

if IOResult <> 0 then begin
WriteLn(''Файл text2.txt не найден''); exit;
end;
{$I+}

For i:=1 to N do
For j:=1 to M do Read(f_in,a[i,j]);

if nol(a) <> 0 then writeln(''Строк без нулей - '',nol(a));
if nol(a) = 0 then writeln(''Строк без нулей нет'');

ReadKey
end.

==========================================================
==========================================================

Сама матрица:
1 1 1 1 1 1 1
0 2 2 2 2 2 2
3 3 3 3 3 3 3
4 0 4 4 4 4 4
5 5 5 5 5 5 5
====================
У меня получается 7

------------ Евгений -----------