В паскале
1) program one;
uses crt;
var a:array [1..10] of integer;
x: real; i:integer;
begin
clrscr;
x:=0;
for i:=1 to 10 do
readln(A[i]);
for i:=1 to 10 do
begin
if (A[i]<0) or (A[i] mod 2=0) then
x:=x+Sqr(A[i]);
end;
writeln;
write(x);
end.
2)
program two;
uses crt;
var a:array [1..52] of integer;
x,i: integer;
begin
clrscr;
x:=34;
for i:=1 to 52 do
begin
A[i]:=1+x;
x:=x+1;
if (A[i] mod 7 =1)or (A[i] mod 7 =2) or (A[i] mod 7 =5)
then writeln(A[i]);
end;
end.
3)
Program three;
Uses crt;
var n,x:integer; a,y:real;
begin
Clrscr;
readln(a,n);
for x:=1 to n do
y:=x*a;
writeln(y);
end.
4)
Program four;
Uses crt;
var A:array [1..100] of integer;
n,i,max,x:integer;
begin
clrscr;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('Vvedite elementy');
for i:=1 to n do
read(A[i]);
for i:=1 to n do
begin
max:=A[1];
if (A[i] <0) and (A[i]>A[x])
then max:=A[i];
x:=i;
end;
writeln ('Naib',max,'nomer',x);
end.
5)
Program abc;
Uses crt;
var S,a,b:integer;
begin
clrscr;
S:=0;
a:=1;
b:=3;
while a<98 do
begin
while b<100 do
begin
S:=S+b-a;
a:=a+4;
b:=b+4;
end;
end;
writeln(s);
end.
Первое решение понятно, но это только общие мысли, в целом оно ошибочно по двум пунктам
1. В задании идёт речь о 20 веке, а это года 1901,19022000. Поэтому в объявлении массива нужно указать именно эти интервалы. Или просто 1 - 100, понятно же, что это один век, а при отображении года следует отображать (1900+i).
2. В задании не определено, с какой точностью это самое население считается, если с точностью до человека, то INTEGER не хватит, поэтому этот вопрос нужно уточнить и в зависимости от точности (до тысяч, до десятков или сотен тысяч человек) выбрать соответствующий формат представления данных.
3. Странно писать 100 одинаковых операторов присваивания(кстати в тексте ещё ошибка - присваивается ОДНО И ТО ЖЕ значение, ведь оператора ввода данных НЕТ!).
Такие вещи делаются в цикле по индексам. Внутри цикла 2 оператора
Ввод()
Присваивание
Опять же в задании не сказано, откуда берутся данные, ведь они могут браться с клавиатуры, с внешнего устройства(диска) или с какого-нибудь другого устройства ввода, например, сканера. Эти вводы реализуются похожими, но РАЗНЫМИ операторами.
Вот мои замечания, хотя, если формально точно реализовывать предложенное задание, нужно всего лишь описать массив, в котором будут храниться некоторые данные. В этом случае действительны лишь замечания 1 и 2.
И ещё. Я не помню, что такое INTEGER. INTEGER 2-байтный точно не хватит, INTEGER 4-байтный должно хватить.
Успехов!
Поделитесь своими знаниями, ответьте на вопрос:
Укажите истинные высказывания 1)Русские буквы в кодовых таблицах КОИ-8 и Windows расположены в лексикографическом порядке. 2)Цифры и знаки препинания в кодовых таблицах КОИ-8 и Windows имеют различные коды. 3)Латинские буквы в кодовых таблицах КОИ-8 и Windows расположены в лексикографическом порядке и имеют одинаковые коды. 4)Русские буквы в кодовых таблицах КОИ-8 и Windows имеют различные коды. 2.В соответствии с кодовой таблицей ASCII каждую латинскую букву можно закодировать десятичным числом. Слово «file» кодируется как 102105108101. Какому слову соответствует числовая последовательность 102105110101? 1)film 2)face 3)fire 4)fine 3.Соответствие между изображениями символов и кодами символов устанавливается с диаграммы 2)форматирования 3)кодовой таблицы 4)диаграммы 4.Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объём следующей пословицы: Речь вести — не лапти плести. В ответе укажите только число байт. ответ: 5. Сколько символов содержит текст, записанный в 8-битном коде, информационный объём которого равен 0, 25 Кбайт? ответ: 6. Известен десятичный код (номер) некоторого символа - 30. Определите, какой это символ: управляющий или изображаемый. 1)Изображаемый 2)Управляющий 7.В кодировке КОИ-8 каждый символ кодируется 8 битами. Определите информационный объём сообщения в этой кодировке, если оно состоит из 32 символов. 1)32 байта 2)32 бита 3)320 битов 4)256 байтов 8.В одной из кодировок Unicode на каждый символ отводится 16 битов. Определите информационный объем текста из 36 символов в этой кодировке. В ответе укажите только число байт. ответ:
1 )В кодовых таблицах КОИ-8 и Windows сначала расположены прописные русские буквы, а затем строчные. Русские прописные буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 223. Русские буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 225.
2)
film
face
fine
fire
3)3
4) i = 1 байт
k = «Речь вести - не лапти плести.»
Найти:
V - ?
Решение
i = 1 байт = 8 бит
В предложении «Речь вести - не лапти плести.»- 29 символов
V = k * i (формула нахождение объёма текстовой информации)
Где, к – количество символов в тексте
V = 29 * 8 = 232 бит = 29 байт
ответ: текст содержит 29 байт информации
5 )Слово занимает 14 байт =14*8=112 бит памяти. Решение: Переведем Кб в байты: 0, 25 Кб * 1024 =256 байт. Так как текст занимает объем 256 байт, а каждый символ – 1 байт, то в тексте 256 символов.
6)31 управляющие
7)4
8)576 битов тоесть :576/8=72 бита