4 года назад

Паскаль Дано натуральное число n (n вводится пользователем с клавиатуры). Вычислить:

Знания

Информатика

1 ответ:

людмила35354 года назад

0 0

Program math;var a: real;var i,n: integer;begina:=1;readln(n);for i:=1 to n dobegin a:=a+(1/i);end;writeln(a);end.

Читайте также

Разгадайте кроссворд 1 Запоминающее устройства.(6 букв )2 Видео... ( 5 букв)3 считывающее с бумаги устройство (6 букв) 4 межсете

ЛАРИН

1 флешка

2 карта

3 сканер

4 Брандма́уэр

5 Опция

6 спам

По кол-ву букв и по определению подходит, а для более точного совпадения выложите сам кроссворд

0 0

4 года назад

PascalABC Вводится три числа определить является ли чётным/нечётным и положительным/отрицательным/нулём наименьшее из них > 4

mrgarr86

Var a,b,c,m: integer;
begin
readln (a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');
if m = 0 then write('ноль') else
if m > 0 then write('положительное') else write('отрицательное')
end.

0 0

4 года назад

Сообщение занимает 3 страницы и содержит 7875 байтов информации. Сколько строк в тексте, если символов в строке 50 и при составл

ДорисДэй

При использовании алфавита из 128 символов для записи одного символа необходимо log(2)128 = 7 бит
Количество символов в сообщении = 3*x*50
Объем сообщения = 3*x*50*7 бит
7875 байт = 7875*8 бит
x = 7875*8/(3*50*7) = 60
Ответ: каждая страница текста содержит 60 строк

0 0

4 года назад

База данных представлена в табличной форме. Запись образует: Выберите один из 4 вариантов ответа: 1) поле в таблице 2) строку в

Юлия Дуденцова

Не уверенна, но вроде строку в таблице.

0 0

4 года назад

дана последовательность операторов a=1 b=1 while a<2 do begin b:=b+2 end s= a+b сколько раз выполнится цикл найдите конечн

bezkor69

Если всё так как написанно, то программа вообще не скомпилируется. Должно быть

a:=1;b:=1;

while a<2 do

begin

b:=b+2;
end;

s:=a+b;

в теле цикла переменная а не изменяется, поэтому цикл будет бесконечным. То есть пока Ctrl-Break не нажмешь будет кажаться что программа зависла.

0 0

4 года назад