.................................
Program n_10;
var y, a, b, c, d: integer;
begin
writeln ('Нахождение наибольшей из четырёх величин');
write ('Введите a, b, с, d>>');
readln (a, b, c, d);
y:=a;
if (b>y) then y:=b;
if (c>y) then y:=c;
if (d>y) then y:=d;
writeln ('y=' , y)
end.
//Pascal ABC.NET v3.1 сборка 1172
//Вариант без ввода переменных, выводится системная дата
Uses
system;
var
t: DateTime;
begin
t := DateTime.now;
{если не работает, попробуйте t:=CurrentDateTime;}
writeln('*************');
writeln('* ', t.day, '.', t.month, '.', t.year, ' *');
writeln('*************');
end.
Пример вывода:
*************
* 10.4.2016 *
*************
//Вариант со вводом переменных
Var
s,c:string;
i:integer;
begin
s:='* ';
write('Введите день:'); readln(c);
if length(c)=1 then c:='0'+c;
s:=s+c+'.';
write('Введите месяц:'); readln(c);
if length(c)=1 then c:='0'+c;
s:=s+c+'.';
write('Введите год:'); readln(c);
s:=s+c+' *';
for i:=1 to length(s) do
write('*');
writeln;
writeln(s);
for i:=1 to length(s) do
write('*');
end.
Пример ввода:
Введите день:10
Введите месяц:4
Введите год:2016
Пример вывода:
**************
* 10.04.2016 *
**************
Var
h,x,y:real;
begin
writeln('Введите значения k и h');
readln(x,h);
y:=2;
while y<=3.000001 do begin //3.000001 преодолевает погрешность накопления y
writeln(y:6:3,ArcCos(y/x):6:3);
y:=y+h
end
end.
Тестовый прогон:
Введите значения k и h
4.5 0.1
2.000 1.110
2.100 1.085
2.200 1.060
2.300 1.034
2.400 1.008
2.500 0.982
2.600 0.955
2.700 0.927
2.800 0.899
2.900 0.870
3.000 0.841
1) 26 символов = по другому 2 в 5 степени (с остатком);
2) 240 * 5 = 1200 бит