Программы для PascalABC.Net
Для древних турбопаскалей требуется добавить две строки: первым оператором поставить
Uses Crt;
а предпоследним
Readkey;
var
i, n, s: integer;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + i;
Writeln('Сумма 1+2+...+', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 10
Сумма 1+2+...+10 = 55
var
i, n: integer;
s:real;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + 1/i;
Writeln('Сумма 1+1/2+...+1/', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 8
Сумма 1+1/2+...+1/8 = 2.71785714285714
Ответ - IAEGE решать такое не умею , но написал программу , которая это делает , если пригодится и ты знаешь паскаль - держи
var a:string;
b:char;
n:integer;
begin
a:='A'; for n:=66 to 73 do begin
a:=Chr(n)+a+a;
end;
writeln(a);
write(a[1],a[510],a[5],a[258],a[68]);
end.
Формула:
N=2^I
Мощность-кол-во информации,необходимое для кодирования 1 символа.
11 Кбайт=92274688 бит
92274688 бит:11264 символа=8192 бита необходимо,чтобы закодировать 1 символ. Ответ:N=1Кб
const
students = 20;
var
marks: <em>byte</em> := students;
begin
writeln('Все пришли?');
var c: <em>string</em>;
readln(c);
if not (c in ['Yes', '1', 'True', 'Да']) then
begin
writeln('Сколько не пришло?');
var b: <em>byte</em>;
readln(b);
marks := (marks > b ? marks - b : 0);
end;
writeln(marks, ' оценок');
<span>end.</span>