Вступление:
1) trunc- получает целое из числа
2) round - округляет до ближайшего целого(банковское округление, если число стоит посредине между двумя целыми 2.5=2; 3.5=4, то есть до ближайшего четного)
3) a div b - делит a/b и возвращает целую часть
4) a mod b - делит a/b и возвращает остаток
5) sin - синус числа
Теперь к заданиям:
trunc(6.9)=6
trunc(6.2)=6
20 div 6=3
2 div 5=0
round(6.9)=7
round(6.2)=6
20 mod 6=2
2 mod 5=2
3*7 div 2 mod 7/3-trunc(sin(1))=1
1)3*7=21
2)21 div 2=10
3)10 mod 7=3
4)3/3=1
5)sin(1)=0,с мелочью
6)trunc(0,...)=0
7)1-0=1
0,256килобайт т.к в одном килобайте 8000бит
Var
S,S2:string;
i:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
LowerCase(S); // эту строчку убрать, если КАЗАК и КаЗАк - разные слова
For i:= 1 to Length(S) do
S2:=S[i]+S2;
if S = S2 then Write('Эта строка - перевёртыш')
else Write('Данная строка не является перевёртышем')
End.
Если меж словами один пробел, и строка не с пробела начинается:
Var
A,i,C:integer;
S:string;
Begin
Write('Введите стоимость одного слова: ');
ReadLn(A);
C:=0;
Write('Введите текст телеграммы: ');
ReadLn(S);
For i:= 1 to Length(S) do
if S[i] = ' ' then C:=C+A;
WriteLn('Стоимость телеграммы: ',C+A);
End.
Если слова состоят из цифр и русских букв, и разделены следующими символами: пробел, тире, скобки, запятая, точка с запятой, двоеточие, точка, восклицательный знак и вопросительный знак. При этом, знак минус считается знаком тире. Также считается, что предложение оканчивается разделительным символом.
Код PascalABC.NET 3.2:
Var
A,i,C:integer;
S:string;
Begin
Write('Введите стоимость одного слова: ');ReadLn(A);
C:=0;
Write('Введите текст телеграммы: ');ReadLn(S);
For i:= 1 to Length(S)-1 do
if S[i]in['а'..'я','А'..'Я','ё','Ё','0'..'9'] then
if S[i+1]in[' ','-','(',')',',',';',':','.','!','?'] then
C:=C+A;
Write(C);
End.
Пример работы программы:
Введите стоимость одного слова: 1
Введите текст телеграммы: Помогите пожалуйста!!!!! (Паскаль) 1) Дана строка. Определить явяляется ли она перевертышем. То есть например слово КАЗАК,она и наоборот читается КАЗАК 2) Определить стоимость телеграммы,если стоимомость одного слова вводится с клавиатуры.
Стоимость телеграммы: 32
Using System;
class Program
{
static void Main()
{
var random = new Random(DateTime.Now.Millisecond);
int n = 5;
int k;
var c = new int[n, n];
var b = new int[n];
Console.WriteLine("C:");
for (var i = 0; i < n; i++)
{
for (var j = 0; j < n; j++)
{
c[i, j] = random.Next(0, 9);
Console.Write(c[i, j] + " ");
}
Console.WriteLine();
}
Console.WriteLine();
for(int j = 0; j < n; j++) {
k = 0;
for(int i = 0; i < n; i++)
if (c[i, j]==0) k++;
b[j] = k;
}
Console.WriteLine("B:");
for(int i = 0; i < n; i++)
Console.Write(b[i] + " ");
Console.WriteLine();
Console.ReadKey();
}
}
Пример:
<span>C:
3 5 1 3 0
1 6 4 1 7
5 2 5 1 2
4 6 3 0 3
2 3 8 0 7
B:
0 0 0 2 1</span>
