<em><u>Pascal:</u></em>
var code:byte;
begin
write ('Code = ');
readln (code);
writeln (chr(pred(code)));
end.
<em><u>C++:</u></em>
#include <iostream>
using namespace std;
int main()
{
int code;
cout <<"Code: ";
cin >>code;
char ch=static_cast<char>(code);
cout <<ch <<endl;
return 0;
<span>}</span>
ИЛЛЮЗИЯ МЮЛЛЕРА-ЛАЙЕРА или ГЕОМЕТРИЧЕСКАЯ ИЛЛЮЗИЯ
1.25 ячеек
2.D)4
3.D)
4.C)
5.-
6.A)
<h2>Программа написана на PascalABC.NET 3.4.2, сборка 1979 (16.02.2019), но компилироваться должна и на обычном Pascal</h2>
не указано, как именно завершать ввод, поэтому сделал завершение словом exit
<h2>Код</h2>
- program task31784852;
- var
- number, maxLength, maxNumber: integer;
- inputIsTrue: boolean;
- inputString, maxLengthString: string;
- begin
- inputIsTrue := false;
- maxLength := 0;
-
- Writeln('Напишите exit, чтобы завершить ввод и получить результат');
-
- while inputIsTrue = false do
- begin
- Readln(inputString);
- if Length(inputString) = 0 then
- continue;
- if inputString = 'exit' then
- break;
- number := number + 1;
- if Length(inputString) > maxLength then
- begin
- maxLength := Length(inputString);
- maxLengthString := inputString;
- maxNumber := number;
- end;
- end;
- Writeln('Самая длинная строка с номером ', number, ': ', maxLengthString);
- end.
<h2>Проверка</h2>
Напишите exit, чтобы завершить ввод и получить результат
a
aa
aaa
aaaaaalsd
pwpefowpeofkpwef
................
...................
123462048201180301313031
znanija.com/task/31784852
exit
Самая длинная строка с номером 9: znanija.com/task/31784852
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>