Program plov ;
var day : integer ;
var km , sum : real ;
begin
day := 1 ;
km := 3 ;
sum := km ;
while ( sum <= 30 ) do begin
day := day + 1 ;
km := km * 1.1 ;
sum := sum + km ;
end ;
writeln ( 'day=' , day ) ;
<span>end.</span>
#include <iostream>
using namespace std;
void countChars() {
char s[256];
cout << "Введите строку: ";
cin.getline(s, 256);
int count = 0;
for (unsigned int i = 0; i < strlen(s); i++)
count++;
cout << "Количество символов в строке: " << count << endl;
}
int main() {
setlocale(LC_ALL, "Russian");
countChars();
system("pause");
return 0;
}
//=================
// или так
//================
#include <iostream>
using namespace std;
int countChars(char* s) {
int count = 0;
for (unsigned int i = 0; i < strlen(s); i++)
count++;
return count;
}
int main() {
setlocale(LC_ALL, "Russian");
char s[256];
cout << "Введите строку: ";
cin.getline(s, 256);
cout << "Количество символов в строке: " << countChars(s) << endl;
system("pause");
return 0;
}
Ответ:
type for "слово" unlimited
Ключ, ключевое поле
тттттттт
Procedure ABCD(Const A:real; Var B,C,D:real);
Begin
B:=A*A;
C:=B*A;
D:=C*A;
End;
Var
A,B,C,D:real;
Begin
Write('A = ');ReadLn(A);
ABCD(A,B,C,D);
WriteLn(A,' ',B,' ',C,' ',D);
End.
Пример вычислений для 10-ти разных чисел:
A = 1
1 1 1 1
A = 2
2 4 8 16
A = 3
3 9 27 81
A = -10
-10 100 -1000 10000
A = 3.141592
3.141592 9.869600294464 31.0062573282858 97.4090099724839
A = 111
111 12321 1367631 151807041
A = 6.66
6.66 44.3556 295.408296 1967.41925136
A = -2.718121812
-2.718121812 7.38818618487016 -20.0819900202127 54.5852951023063
A = 789456123
789456123 6.23240970142191E+17 4.92021399983213E+26 3.8842930686378E+35
A = 123456789
123456789 1.52415787501905E+16 1.88167637178915E+24 2.32305722798259E+32