Вот фрагмент программы на Паскале:
Write (' d = ');
ReadLn (d);
L:=3.14*d;
WriteLn( ' L = ', L);
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var y:=ReadReal('Y=');
var p:=Trunc(Frac(y)*1000);
p:=(p div 100)*(p div 10 mod 10)*(p mod 10);
Writeln('P=',p)
end.
<u>Пример</u>
Y= 29632.637823
P=126
Конкретное-относящиеся к одному(конкретному) лицу.
Python 3.5:
x = float(input())
y = 3*x**2 if x > 27 else x - 10 if 3 < x and x <= 27 else 5 * x
print(y)
x = 22: y = 12
x = 30: y = 2700
x = -2: y = -10
<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>