begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==
Это, конечно, ужасный вариант с "много 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
//1)
#include
using namespace std;
int main() {
int x;
int a=15;
int Y=x*x+a*x;
cin>> x;
cout< return 0;
}
//2)
#include
using namespace std;
int main() {
int x;
int a=5;
int b=1;
int Y=x*x*x-a*x+b;
cin>> x;
cout< return 0;
}
//3)
#include
using namespace std;
int main() {
double x;
int a=3;
int b=1;
double Y = x*x*x-a*x-b;
cin>> x;
if(Y>0 && Y <= 25){
cout<
return 0;
}
1.Двоичная
2.римская
3.Джорж Булль
4.
5.Двоичный код
6.десятичная
7.поднести к квадрату
8.кластер
9.десятичная
Console.WriteLine("Введите расстояние до пункта ");
double rast = Convert.ToDouble(Console.ReadLine());
Console.WriteLine("Введите расход в литрах ");
<span>double rashod = Convert.ToDouble(Console.ReadLine());
</span>Console.WriteLine("Введите стоимость бензина ");
<span>double benzin = Convert.ToDouble(Console.ReadLine());
</span>
cena = benzin * rashod * rast;
Console.WriteLine(cena);
либо я чето не понимаю, либо она так должна быть
расход горючего на все 61 км? задача некорректно составлена
но допустим, что она такая какая есть