К специальным клавишам относятся Esc, Enter, Tab
Представлю два варианта:
- С использованием PascalABC.NET
- С использованием обычного Pascal
Версия PascalABC.NET - 3.4.2, сборка 1978 (12.02.2019)
Var A,B,S:array[1..62] of real;i,j,k:integer;n,m:real;Year,Month, Day, Wk : Word;
begin
Year:=2015;Month:=07; Day:=01;
randomize;
for j:= 1 to 2 do begin
if j= 2 then Month:= Month + 1;
for I:= 1 to 31 do begink:= k +1;
n:= Round((random()*100 +1) *100);
m:= Round((random()*150 +1) *100);
A[k]:= n / 100;
B[k]:= m / 100;
S[k]:= A[k] + B[k];Day:= I;
write(Day, '.',Month, '.',Year);writeln(' ', A[k]:8, B[k]:8, S[k]:9);end;
end;<span>end.</span>
Если не тот язык, укажите какой нужен.
var a: integer;
f: real;
begin
write('Введите а: '); readln(a);
if(a <= 0) then f := sqr(a) + 4*a + 5
else f := 1 / (sqr(a) + 4*a + 5);
writeln('f(', a, ') = ', f);
end.
Пришел хороший мальчик.
Затихла бурная сирень.