Ассорти на ГОСах

[dragerok]

1. Присвоить целой переменной h третью от конца цифру в записи положительного целого числа k (например, если k=130985, то h=9)
- Нужно разработать программу, я поискал сейчас, вот что нашел h := (K div 100) mod 10 вот такую формулку надо использовать.

2. Записать на Паскале выражение, зависящее от X и Y, принимающее значение true, когда точка с координатами X и Y принадлежит области между осью Х и графиком функции Y=Cos(2x), где 0<=х<=Пи

3. Найти ошибки :
Program В;
Const k=true; Var X:real;
Begin
read(x);
Writeln(ord(x)=k) end.
ругается на х внизу 39: Ordinal expression expected. Выражение должно иметь перечисляемый тип.

4. Если N=9, то, какое значение будет иметь переменная F после выполнения следующего составного оператора:
begin F:=1; J:=2;
1: if J>N then goto 9;
F:=F*J; J:=J+1; goto 1;
9: end.

5. Вычислить y=(2n-1) N>0
(Разработать программу)

6. Дан текст, содержащий от 1 до 70 букв, за которым следует точка. Напечатать этот текст в обратном порядке.
(Разработать программу)

7. Каковы действия программы в случае непустого файла F?
Program WhatIsIt;
Var
F: file of integer;
Begin
Reset (F);
While not eof ( F ) do
Begin read ( F , I ); writeln ( I*I, ‘-‘ ) end;
Close ( F ) end.

8. Определить значение переменной S после выполнения следующих
операторов
S:=1; k:=1; For i:=2 to k do S:=S+1/ 1;
(Прокрутка Обязательна)

9.Присвоить целой переменной Н первую цифру из дробной части положительного вещественного числа Х (так, если Х=32,597, то Н=5)
(Разработать программу)

10. Найти ошибки в следующей программе
Program В;
Const B=2.5; Var a,b,c:real;
Begin read(a,c); Writeln(a*c>b) end.

11.Если N=6, то, какое значение будет иметь переменная F после выполнения следующего составного оператора:
begin F:=1; J:=2;
1: if J>N then goto 9;
F:=F*J; J:=J+1; goto 1;
9: end.

12. Если среди чисел Sin( xN ) (n=1,2,3,…,30) есть хотя бы одно отрицательное число, то логической переменной t присвоить значение true, а иначе – false
(Разработать программу)

13. Вычислить величину
(x1y1+x3y3+…+x29y29)/
(x2y2+x4y4+…+x30y30))
Если числа для ввода заданы в следующем порядке
x1, x2, …x30, y1, y2, ,… y30
(Разработать программу)

14. Var j,n : word;
a,b : LongInt;
Begin
N:=25; a:=1; b:=1;
For j:=2 to N do
Begin
b:=a+b; a:=b;
End;
writeln (‘F(’, n-1, ‘)=’,b) Readln; end.

Определите результат выполнения
программы?
(Прокрутка Обязательна)

15. Определить значение переменной S после выполнения следующих операторов :
S:=1; k:=5; For i:=2 to k do
S:=S+1/ i;
(Прокрутка Обязательна)

может хотя бы на парочку поможете ответить, буду очень признателен!!!

[mss]

icq 169527143