Составить программу которая вычисляет произведение членов последовательности n натуральных чисел, кратных 5. программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность заканчивается числом n.

👇

Ответ:

vityabro13

08.04.2020

В условии задачи есть противоречие: с одной стороны количество чисел = N, а с другой - количество неизвестно, а дается признак конца последовательности. Программа дана для 2-го варианта.
var n,a:integer; p:real;
begin
write('n = '); readln(n);
write('a = '); readln(a);
p:=1;
while a<>n do
begin
if a mod 5 = 0 then p:=p*a;
write('a = '); readln(a);
end;
writeln('p = ',p);
end.

Пример:
n = 999
a = 6
a = 10
a = 24
a = 15
a = 56
a = 7
a = 5
a = 999
p = 750

4,5(43 оценок)

Ответ:

Islamiks

08.04.2020

Мой милорд, прибыли поставки в виде решения

4,8(39 оценок)

Открыть все ответы

Ответ:

aluanakim

08.04.2020

Program one_a;
uses crt;
var s1,s2:string;
p,a:integer;
begin
readln(s1);
readln(s2);
p:=pos(s2,s1);
if p=0 then writeln('no')
else writeln('pos:',p);
end.

Program one_b;
uses crt;
var s1,s2:string;
p,a:integer;
begin
readln(s1);
readln(s2);
p:=pos(s2,s1);
if p=0 then writeln('no')
else
begin
a:=length(s2);
delete(s1,p,a);
writeln(s1);
end;
end.

Program one_c;
uses crt;
var s1,s2:string;
p:integer;
begin
readln(s1);
readln(s2);
s2:=' '+s2+' ';
readln(p);
insert(s2,s1,p);
writeln(s1);
end.

Program two_a;
uses crt;
var s1,s2,s3:string;
begin
s1:='край озер ';
writeln(s1);
s2:='лесов и рек';
writeln(s2);
insert(s2,s1,length(s1)+1);
writeln(s1);
end.

Program two_b;
uses crt;
var s1,s2,s3:string;
p,a:integer;
begin
s1:='Я учусь в школе';
writeln(s1);
s2:='в школе';
s3:='в 10-м классе';
p:=pos(s2,s1);
a:=length(s2);
delete(s1,p,a);
insert(s3,s1,p+1);
writeln(s1);
end.

Program three_a;
uses crt;
var s1,s2:string;
p,a:integer;
begin
s1:='моя родина Беларусь';
writeln(s1);
s2:='Беларусь';
p:=pos(s2,s1);
a:=length(s2);
delete(s1,p,a);
s1:=s2+' '+s1;
writeln(s1);
end.

Program three_b;
uses crt;
var s1,s2:string;
p,a:integer;
begin
s1:='люблю цябе, мой родны кут';
writeln(s1);
s2:='мой родны кут';
p:=pos(s2,s1);
a:=length(s2);
delete(s1,p,a);
delete(s1,length(s2)-2,2);
s1:=s2+','+s1;
writeln(s1);
end.

Program four_a;
uses crt;
var s1,s2,s3:string;
p,k,i,l,m:integer;
begin
s1:='Минск столица Беларуси';
writeln(s1);
k:=0;
for i:=1 to length(s1) do
if copy(s1,i,1)=' ' then
begin
inc(k);
l:=i;
end;
p:=pos(' ',s1);
s2:=copy(s1,1,p-1);
s3:=copy(s1,l+1,length(s1)-l+1);
k:=length(s2);
m:=length(s3);
delete(s1,1,k);
delete(s1,l-p+2,m);
s1:=s3+s1+s2;
writeln(s1);
end.

Program four_b;
uses crt;
var s1,s2,s3:string;
p,k,i,l,m:integer;
begin
s1:='Беларусь ты моя синеокая';
writeln(s1);
k:=0;
for i:=1 to length(s1) do
if copy(s1,i,1)=' ' then
begin
inc(k);
l:=i;
end;
p:=pos(' ',s1);
s2:=copy(s1,1,p-1);
s3:=copy(s1,l+1,length(s1)-l+1);
k:=length(s2);
m:=length(s3);
delete(s1,1,k);
delete(s1,l-p+2,m);
s1:=s3+s1+s2;
writeln(s1);
end.

Program five_a;
uses crt;
var s1:string;
x:integer;
begin
readln(s1);
for x:=1 to length(s1) do
if copy(s1,x,1)=' ' then
begin
delete(s1,x,1);
insert('_',s1,x);
end;
writeln(s1);
end.

Program five_b;
uses crt;
var s1:string;
s2:char;
x,y:integer;
begin
readln(s1);
y:=0;
for x:=1 to length(s1) do
begin
s2:=s1[x];
if (s2<>' ') and ((ord(s2)<48) or (ord(s2)>57)) then inc(y);
end;
writeln(y);
end.

Program five_c;
uses crt;
var s1:string;
s2:char;
x,y:integer;
begin
readln(s1);
y:=0;
for x:=1 to length(s1) do
begin
s2:=s1[x];
if (ord(s2)<=90) and (ord(s2)>=65) then inc(y);
if (ord(s2)>=192) and (ord(s2)<=223) then inc(y);
end;
writeln(y);
end.

4,5(52 оценок)

Ответ:

TaisiyaMe

08.04.2020

Ха-ха-ха)) Белорусский учебник по информатике за 10 класс)))

Там все просто...

Программа №4

Program str999;
Uses CRT;
Var
s: String;
Begin
Writeln('Введіте фразу');
read(s);
if (s='край озер') then
writeln ('Край озер лесов и рек');
if (s='Я учусь в школе') then
writeln ('Я учусь в 10-м классе')
end.

Потхоньку буду дополнять, не так все быстро))

Задание №5

Program р_1;
Uses CRT;
Var
s: String;
Begin
Writeln('Введите фразу');
read(s);
if (s='моя родина Беларусь') then
writeln ('Беларусь моя родина');
if (s='люблю цябе мой родны кут') then
writeln ('мой родны кут люблю цябе')
end.