Все категории

4 года назад

Даны n натуральных чисел найти сумму и произведение элементов кратных 3 и 5Информатика. Pascal

Знания

Информатика

1 ответ:

Матильд а [211]4 года назад

0 0

var

k,i,n:integer;

a:array[1..100] of integer;

sum:integer;

begin

write('n= ');readln(n);

write('k= ');readln(k);

for i:=1 to n do

begin

write('a[',i,']= ');

readln(a[i]);

end;

for i:=1 to n do

begin

if a[i] mod k = 0 then

sum:=sum+a[i];

end;

writeln;

write('sum= ',sum);

readln;

end.

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

1.Вводится натуральное число. Найти сумму четных цифр, входящих в его состав. 2. Дан текст. Определить процентное отношение стро

OlgaLubenskaya

Объяснение:

n - исходное число,

sum - сумма четных чисел.

var

n: longint;

sum: integer;

begin

readln(n);

sum := 0;

while n > 0 do begin

if n mod 10 mod 2 = 0 then

sum := sum + n mod 10;

n := n div 10;

end;

writeln(sum);

end.

str - строка;

len - количество символов в строке;

let_s, let_b - количество строчных (маленьких) и прописных (больших) букв.

var

str: string;

i, len, let_b, let_s: byte;

begin

readln(str);

len := length(str);

let_b := 0;

let_s := 0;

for i:=1 to len do

if (str[i] >= 'a') and (str[i] <= 'z') then

let_s := let_s + 1

else

if (str[i] >= 'A') and (str[i] <= 'Z') then

let_b := let_b + 1;

writeln((let_s/len)*100:5:2);

writeln((let_b/len)*100:5:2);

writeln;

end.

0 0

4 года назад

РЕБЯТ ПОМОГИТЕ ПОЖАЛУЙСТА, ХОТЯ БЫ ЧТО ТО ОДНО!!!!!!Через программу PASCAL:1)запись заданного длинного целого числа имеет нечетн

Питер Блад

Program Pr1;
uses crt;
var stroka:string;
a:integer;
Begin
clrscr;
writeln('Vvedite chislo');
readln(stroka);
a:=length(stroka);
a:=Trunc(a/2)+1;
writeln(a);
end.

Program Pr1;
uses crt;
var stroka:string;
a,i:integer;
Begin
clrscr;
writeln('Vvedite stroku');
readln(stroka);
a:=0;
for i:=1 to length(stroka) do if stroka[i]=',' then a:=a+1;
writeln(a);
end.

Program Pr1;
uses crt;
var stroka:string;
a,i:integer;
c:char;
Begin
clrscr;
writeln('Vvedite stroku');
readln(stroka);
writeln('Vvedite simvol');
readln(c);
a:=0;
for i:=1 to length(stroka) do if stroka[i]=c then break
else a:=a+1;
writeln(a);
end.

Program Pr1;
uses crt;
var stroka:string;
procedure word9(strokk:string);
var i:integer;
tmp:string;
begin
for i:=1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin
writeln(tmp,' ',length(tmp));
tmp:='';
end
else tmp:=tmp+stroka[i];
end;
Begin
clrscr;
writeln('Vvedite predlogenie');
readln(stroka);
word9(stroka);
end.

Program Pr1;
uses crt;
var stroka:string;
a,i:integer;
Begin
clrscr;
a:=0;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i] in ['A'..'z'] then a:=a+1;
writeln(a);
end.

Program Pr1;
uses crt;
var stroka:string;
procedure word8(strokk:string);
var i:integer;
begin
for i:=1 to length(strokk) do if strokk[i]=' ' then strokk[i]:='_';
writeln(strokk);
end;
Begin
clrscr;
readln(stroka);
word8(stroka);
end.

Program Pr1;
uses crt;
var stroka,tmp:string;
i,a:integer;
Begin
clrscr;
readln(stroka);
tmp:='';
a:=0;
for i:=1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin
a:=a+1;
writeln(tmp,' ',a);
tmp:='';
end
else tmp:=tmp+stroka[i];
end.

Program Pr1;
uses crt;
var stroka:string;
procedure word7(strokk:string);
var c:char;
i,a:integer;
begin
a:=0;
for i:=1 to length(strokk) div 2 do begin
c:=strokk[i];
strokk[i]:=strokk[length(strokk)-a];
strokk[length(strokk)-a]:=c;
a:=a+1;
end;
writeln();
for i:=1 to length(strokk) do write(strokk[i]);
end;
begin
clrscr;
readln(stroka);
word7(stroka);
end.

10)

Program Pr1;
uses crt;
var stroka,tmp:string;
i,b:integer;
begin
clrscr;
readln(stroka);
stroka[1]:='*';
for i:=1 to length(stroka) do if stroka[i]=' ' then for b:=i to length(stroka) do if stroka[b] in ['A'..'я'] then begin
stroka[b]:='*';
break;
end;

writeln(stroka);
end.

11)

Program Pr1;
uses crt;
var stroka:string;
i,b:integer;
begin
clrscr;
readln(stroka);
b:=0;
for i:=1 to length(stroka) do if (stroka[i]='А') or (stroka[i]='а') or (stroka[i]='О') or (stroka[i]='о') then b:=b+1;
writeln(b);
end.