Uses Crt;
var
n,d1,d10,d100:integer;
begin
ClrScr;
Write('n='); Read(n);
d1:=n mod 10; d100:=n div 100; d10:=(n div 10) mod 10;
if d1=9 then d1:=0 else Inc(d1);
if d10=9 then d10:=0 else Inc(d10);
if d100=9 then d100:=0 else Inc(d100);
Writeln(d100,d10,d1);
ReadKey
end.
Using System;
class Program
{
public static void Main()
{
double x,y;
for (x = 0; x <= 12; x++)
{
y = Math.Sqrt(Math.Log(x*x-3*x+2));
Console.WriteLine("x = {0}, y = {1}", x, y);
}
Console.ReadKey();
}
}
Результат:
<span>x = 0, y = 0.832554611157698
x = 1, y = NaN
x = 2, y = NaN
x = 3, y = 0.832554611157698
x = 4, y = 1.33856619904585
x = 5, y = 1.57635866787606
x = 6, y = 1.73081838260229
x = 7, y = 1.84423354856758
x = 8, y = 1.93330536084794
x = 9, y = 2.00632791206601
x = 10, y = 2.06801018348945
x = 11, y = 2.1212754819519
x = 12, y = 2.16805912414593
PS. NaN - функцию невозможно вычислить при данном значении аргумента.</span>
Каждый символ в зависимости от кодировки занимает 1 или 2 байта. Слово дисковод занимает значит 8 или 16 байтов. Или 64 и 128 бит.
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:').ToLower;
var c:=ReadlnChar('Введите искомую букву:').ToLower;
Writeln('Буква встречается ',s.Where(a->a=c).Count,' раз(а)')
end.
<u>Пример</u>
Введите строку: А роза упала на лапу Азора
Введите искомую букву: а
Буква встречается 8 раз(а)
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите фразу:');
s.Replace('Ты','Я').Replace('ты','я').Println
end.
<u>Пример</u>
Введите фразу: Тыков ест тыблоко
Яков ест яблоко
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
var s1:=ReadlnString('Что найти?');
var s2:=ReadlnString('Чем заменить?');
s:=s.Replace(s1,s2);
s.Println;
end.
<u>Пример</u>
Введите строку: мама, мама, что я буду делать, мама, мама, как я буду жить?
Что найти? мама
Чем заменить? папа
папа, папа, что я буду делать, папа, папа, как я буду жить?