1, 1, 1, 2, 1
Изменение значения: 11, 9, 7, 5, 15, 13.
//Pascal ABC.NET v3.0 сборка 1111
//5
Var
s:real;
n,i:integer;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln('Res=',s);
<span>end.
Пример ввода:
3
Пример вывода:
Res=1.83333333333333
//4
Var
x,y:real;
begin
readln(x);
if x<=0 then y:=sqr(x)-1;
if (0<x) and (x<1) then y:=cos(x);
if (x>1) then y:=sqr(x)+1;
writeln(y);
<span>end.
Пример ввода:
0.5
Пример вывода:
0.877582561890373
</span></span>
1)1 байт=8 бит
2)22•8=176 бит
3)176:8=22 байта
Ответ: фраза Пушкин - наше всё! займёт 22 байта.
//Задание 33
const
n = 2;
type
student = record
f: string;
p1, p2, p3: integer;
end;
var
a: array[1..n] of student;
m: array[1..n]of real;
i: integer;
s: real;
begin
s := 0;
for i := 1 to n do
begin
writeln('Введите фамилию ', i, ' ученика ');
readln(a[i].f);
writeln('оценки по 3 предметам ');
readln(a[i].p1, a[i].p2, a[i].p3);
if (a[i].p1 + a[i].p2 + a[i].p3) / 3 >= s then begin
s := (a[i].p1 + a[i].p2 + a[i].p3) / 3;
m[i] := s;
end;
end;
if m[1] = m[2] then writeln('Средний балл учащихся одинаков')
else if m[1] > m[2] then
writeln(a[1].f, ' учится лучше')
else writeln(a[2].f, ' учится лучше')
end.
Тест №1
Введите фамилию 1 ученика
Иванов
оценки по 3 предметам
3 4 5
Введите фамилию 2 ученика
Петров
оценки по 3 предметам
4 4 4
Средний балл учащихся одинаков
Тест №2
Введите фамилию 1 ученика
Иванов
оценки по 3 предметам
3 4 4
Введите фамилию 2 ученика
Петров
оценки по 3 предметам
5 5 5
Петров учится лучше
//Задание 34
var a,b,c,min,max:integer;
begin
readln(a,b,c);
min:=a; max:=a;
if b<min then min:=b;
if b>max then max:=b;
if c<min then min:=c;
if c>max then max:=c;
writeln(max-min);
end.
Program n_1;
var a: integer;
begin
read(a);
if (a mod 10 = 4) and (a mod 6 = 0) then writeln('YES')
else writeln ('NO');
end.