A есебі Жұптар program esepA;
var i,n,s:integer;
a:array[1..1000] of integer;
f1,f2:text;
begin
assign(f1,’a.in’);
reset(f1);
assign(f2,’a.out’);
rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2 =1 then s:=s+a[i];
writeln(f2,s);
close(f1);
close(f2);
end.
B есебі Көңілді цифрлер
program esepB;
var i,s:integer;
c:char;
a:string[26];
f1,f2:text;
begin
assign(f1,’b.in’);
reset(f1);
assign(f2,’b.out’);
rewrite(f2);
a:=’’;
for i:=1 to 26 do begin
s:=0;
while not eof(f1) do
begin
read(f1,c);
if a[i]=c then s:=s+1;
end;
if s<>0 then writeln(f2,a[i],’ ‘,s);
reset(f1);
end;
close(f1);
close(f2);
end.
С Жай сандар
program esepC;
var n,s:longint;
i,j,k:integer;
f1,f2:text;
begin
assign(f1,’c.in’);
reset(f1);
assign(f2,’c.out’);
rewrite(f2);
readln(f1,n);
s:=0;
for i:=1 to n do begin
k:=1;
for j:=2 to i do
if i mod j=0 then k:=k+1;
if k=2 then s:=s+i;
end;
writeln(f2,s);
close(f1); close(f2);
end.
до завтра

140

389

Посмотреть ответы 1

Ответы на вопрос:

KriSha11

Информатика

4,4(64 оценок)

первое решение понятно, но это только общие мысли, в целом оно ошибочно по двум пунктам

1. в идёт речь о 20 веке, а это года 1901,. поэтому в объявлении массива нужно указать именно эти интервалы. или просто 1 - 100, понятно же, что это один век, а при отображении года следует отображать (1900+i).

2. в не определено, с какой точностью это самое население считается, если с точностью до человека, то integer не хватит, поэтому этот вопрос нужно уточнить и в зависимости от точности (до тысяч, до десятков или сотен тысяч человек) выбрать соответствующий формат представления данных.

3. странно писать 100 одинаковых операторов присваивания(кстати в тексте ещё ошибка - присваивается одно и то же значение, ведь оператора ввода данных

такие вещи делаются в цикле по индексам. внутри цикла 2 оператора

ввод()

присваивание

опять же в не сказано, откуда берутся данные, ведь они могут браться с клавиатуры, с внешнего устройства(диска) или с какого-нибудь другого устройства ввода, например, сканера. эти вводы реализуются похожими, но разными операторами.

вот мои замечания, хотя, если формально точно реализовывать предложенное , нужно всего лишь описать массив, в котором будут храниться некоторые данные. в этом случае действительны лишь замечания 1 и 2.

и ещё. я не помню, что такое integer. integer 2-байтный точно не хватит, integer 4-байтный должно хватить.

успехов!