Это, конечно, ужасный вариант с "много Copy", но если надо ...
Program primer4;
var s:string; i,k:integer;
begin
writeln('подсчет количества глухих согласных в тексте');
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or
(copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or
(copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ')
then k:=k+1;
writeln(k);
end.
Пример:
подсчет количества глухих согласных в тексте
введите текст
подсчет количества глухих согласных в тексте
17
#include <iostream>
#include <math.h>
using namespace std;
int Calc(int ch, int step)
{
int result = pow(ch, step);
return result;
}
int main()
{
int ch, step, result;
cout « "Enter number: "; cin » ch;
cout « "Enter step: "; cin » step;
result = Calc(ch, step);
cout « endl « "Result = " « result « endl;
return 0;
}
Газета - ин( бумага), текст
почтовая открытка- ин( бумага/картон), текст , .картинка
билет ин(бумага)текст
табл с ним дома ин(железная пластина) текст
сфорн к мф ин(CDдиск) вилеозапись
№4
var
x1,x2,x3,y1,y2,y3,a,b,c,p: real;
begin
write ('Введите x1 = '); readln (x1);
write ('Введите y1 = '); readln (y1);
write ('Введите x2 = '); readln (x2);
write ('Введите y2 = '); readln (y2);
write ('Введите x3 = '); readln (x3);
write ('Введите y3 = '); readln (y3);
a:=sqrt(abs(x2-x1)*abs(x2-x1)+abs(y2-y1)*abs(y2-y1));
b:=sqrt(abs(x3-x2)*abs(x3-x2)+abs(y3-y2)*abs(y3-y2));
c:=sqrt(abs(x1-x3)*abs(x1-x3)+abs(y1-y3)*abs(y1-y3));
p:=a+b+c;
writeln ('Периметр = ',p:6:2);
end.
-----------------------------------------
Введите x1 = -1.51
Введите y1 = -8.65
Введите x2 = -5.4
Введите y2 = -3.92
Введите x3 = 0.47
Введите y3 = 9.11
Периметр = 38.29
№5
const pi=3.14;
var r,l,s: real;
begin
write ('Введите радиус r = ');
readln (r);
l:=2*pi*r;
s:=pi*r*r;
writeln ('Длина окружности l = ',l);
writeln ('Площадь круга S = ',s);
end.
------------------------------------------
Введите радиус r = 5
Длина окружности l = 31.4
Площадь круга S = 78.5