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.
до завтра
var M, tons, kilos, grams: integer;begin write('Введите массу: '); read(M); // чтобы найти кол-во тонн, разделим нацело введенную массу // на 1000000 tons := M div 1000000; // div - деление нацело // чтобы найти кол-во килограмм, сначала возьмем остаток // деления на 100000, затем полученное число разделим // нацело на 1000. kilos := (M mod 100000) div 1000; // mod - остаток от деления // граммы - последние 3 цифры введенного числа grams := M mod 1000; writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');end.
M, tons, kilos, grams: integer;
begin
write('Введите массу: ');
read(M);
// чтобы найти кол-во тонн, разделим нацело введенную массу
// на 1000000
tons := M div 1000000; // div - деление нацело
// чтобы найти кол-во килограмм, сначала возьмем остаток
// деления на 100000, затем полученное число разделим
// нацело на 1000.
kilos := (M mod 100000) div 1000; // mod - остаток от деления
// граммы - последние 3 цифры введенного числа
grams := M mod 1000;
writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');
end.