Распишите подробнее. Четные числа, которые вводятся с клавиатуры? Сколько этих чисел?
------------------------------------
var i,n,c:integer;
begin
readln(n);
с:=1;
for i:=2 to n do
if i mod 2=0 then c:=c*i;
writeln('Произведение четных чисел: ',c);
readln;
end.
Program n1;
var n,i: integer;
a,y: real;
begin
readln(a,n);
y:=1;
i:=1;
while(i<=n) do
begin
y:=y*a;
i:=i+1;
end;
write(y);
end.
#include<iostream>
#include<math.h>
using namepacpase std;
int main()
{
int n,x[1000],y[1000],z[1000],x,y,z,i;
cin>>n;
for(i=1;i<=n;i++)
cin>>x[i];
for(i=1;i<=n;i++)
cin>>x[i];
for(i=1;i<=n;i++)
cin>>y[i];
for(i=1;i<=n;i++)
cin>>z[i];
for(i=1;i<=n;i++)
{
d=sqr((x[i]-x)*(x[i]-x)+(y[i]-y)*(y[i]-y)+(z[i]-z)*(z[i]-z))
cout<<d;}
return 0;
}
Количество слогов считаем по количеству гласных букв в слове.
Program pr;
uses crt;
var str,s: string;
a,i,j,len,k,kslog: byte;
Begin
Writeln('Введите предложение');
readln(str);
Writeln('Введите кол-во слогов');
readln(k);
Writeln('Слова с ',k,' слогами:');
Writeln;
len:=length(str);
a:=0;
kslog:=0;
for i:=1 to len do
Begin
if (str[i] = ' ') then
Begin
s:=copy(str,i+1,a);
for j:=1 to length(s) do
Begin
if s[j] in ['А','О','У','Э','Ы','Я','Ё','Ю','Е','И','а','о','у','э','ы','я','ё','ю','е','и'] then inc(kslog);
end;
if (k=kslog) then Writeln(s);
kslog:=0;
a:=0;
end
else a:=a+1;
end;
Writeln;
Writeln('Для завершения программы нажмите Enter');
readln;
end.<span> </span>
