Цитата:
Сообщение от ALEKSEYB
Здравствуйте.Помогите мне в решении 2 задач
|
Помогу со второй.
Цитата:
и в написании блок-схем к ним.
|
Увы, пас.
Цитата:
Дан целочисленный массив A размера 10. Вывести номер первого и последнего из тех его элементов A[i], которые удовлетворяют двойному неравенству: A[1] < A[i] < A[10]. Если таких элементов нет, то вывести 0.
|
Эту детсадовскую ерунду пишите сами - в конце концов, надо же хоть как-то учиться.
Цитата:
Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2; если строку нельзя преобразовать в число, то вывести 0.
|
Пожалуйста:
Код:
VAR
S:String;
I,Code:Integer;
R:Real;
BEGIN
WriteLn('Enter the string:');
ReadLn(S);
Val(S,I,Code);
If Code=0 then Writeln('1') else
begin
Val(S,R,Code);
If Code=0 then Writeln('2') else Writeln('0');
end;
ReadLn;
END.
Цитата:
Заранее большое спасибо тем кто откликнется
|
Не за что.